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ABSTRACT 


THIS VERSION OF THE PROGRAM SUPPORTS NON-SWITCH REGISTER 
OR THESE CPU’ : THE sand iCH REGISTER CAN BE CHANGED 
SY CHANGING THE SONTEN 5 oF 


THIS PROGRAM IS A QUICK GO-NOGO TE 
THE PURPOSE OF THIS TEST IS TO QU 


I 
's Me SYST T 
HEN INITIATE THE COMMUNICATION LI 
TWO GRO TA ' 





» 


ST OF THE GT4O SYSTEM. 
CKLY_IDENTIFY ANY PROBLEM 
“h THE DISPLAY AND 

T 


BACK KS EXECUTED, THE FIRST IS A GT-40 
ROM yoia ST. THE SECOND TASK {S A WORSE CASE NOISE TEST 
REGUIREMENTS 
EGUIPTMENT 


GT4O syoren (11/05 
MODEM TEST CONNECT 


STORAGE 
THIS PROGRAM USED MEMORY LOCATIONS 0-7776 AND 16000-15776 <2k OF MEMORY. 
LOADING PROCEDURE 


DISPLAY PROCESSOR AND VR14 SCOPE) 
WHIC T TA T 


br H CONNECTS DA 


METHOD 
PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 


ate SW O09 = 0 ROM PRESENT + SPECIFIED BY SW O08 
Uy = 

ONEOLE it = : test a VERT ION @ ROM (S12. WORDS) 

CONSOLE SW 08 = 1 TEST ae VERSION 1 ROM (256. WORDS) 


STARTING ADDRESS OR ADORESSES 
200 IS THE ONLY STARTING ADDRESS OF THIS TEST 


DOG 


we 


DE=NO 


“tI 
. 


8.1 


8.2 


DO1 
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OPERATING PROCEDURE 


ONCE STARTED La. TEST WILL RUN IN THEIR NORMAL MANNER 
WITHOUT OPERATOR RVENTION OR SWITCH SELECTION. 

THE ort TOR MUST VERIFY THE DATA Pe pee FROM THE COM- 
poe Se ION LINE BY COMPARING *COM OUTPUT’ TO *COM INPUT’ 
ON THE paren SCREEN. BY TYPING ON iy CONSOLE KEYBOARD, 
THE C AND ALUE WILL BE DISPLAYED 

ERRORS 


THE PROGRAM WILL ONLY HALT ON AN ERROR. 
THE PROGRAM DOES NOT CONTAIN FACILITES FOR REPORTING 
MESSAGES OR ERROR CONDITIONS. 


RESTRICTIONS 


EXECUTION TIME 


THE TEST WILL TAKE Gt eH ad 19 SECONDS FOR COMPLETION 
AND WILL RING THE *’GT-40° BELL 


DEVICE ADDRESS PROGRAM LOCATIONS 
LOCATION 1000 CONTAINS THE erg pevics ADORESS 
LOCA INTERRUPT 


Bron isoe Gos CONTAINS THE er4 Tp INTERRUPT ‘her 
tSERTION ip0e EONTAINE THE BL-i1 Device AD Dress 
PARES Be CSB ai 
LOCATION t5i§ CON TAGNE thE 34744 bor ScorsT hee Foes 
LOCATION 1016 CONTAINS THE GT-40 ROM WORD L 
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DOGTEC.P1) 
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9.1 


8.2 


9.3 


9.4 
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PROGRAM DESCRIPTION 


DISPLAY FILE <FORGROUND TASK> 
THE DISPLAY FILE IS A ee VISUAL TEST OF ALL _GT4O DISPLAY 


eit be AE Seely HARE ectPe orc, 


EHEC Sale Ta alae B oft ase 


he ee 
HE USE OF Bt The ring "ScTRGghE "eo, ‘tov ine “she NE Waves, 
te DISPLAY PATTERN AL OR V —_ a PECTION 


an Sri Bu a sa Be GPE 


*"LIGHT-PEN HIT’ 
ILL SE DISPLAYED NEAR AE CENTER SCREEN 
COMMUNICATION DATA <FORGROUND TASK? 


THE DATA SENTED TO THE ge AS INE 
APPEARS DISPLAY poern AS tate) om OUTPUT’. 


TERMINAL GT4O vRi 

THE DATA ECHOED "BACK BY THE TEST CONNECTOR IS DISPLAYED 
ON THE SCREEN 75 FOUND AT "COM INPUT’. 

BN Tota SEE? OF THE DATA MUST BE PERFORMED. 

ROM VERIFY TEST «BACKGROUND TASK) 


THIS ey VERIFIES THE DATA CONTAINED IN THE GT-40 ROM 
BOOTSTRAP. 


WORSE CASE NOISE TEST «BACKGROUND TASK> 
HIS a: AVA E MEMORY. 
BoRAN 1 LORBED Tro ALLE L EXISYING MEMORY AND THEN 
XECUTED Paige Se REMAINDE 
KEYBOARD DATA <FORGROUND TASK? 


UPON DEPRESSING A KEYBOARD KEY, THE OCTAL VALUE WILL SE 
DISPLAYED AND ECHO ONTO THE SCREEN. 


8 ae ee eee ee 
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-TITLE GT4O QUICK VERIFY MAINDEC-11-DOGTE-C 
-ENRBL ABS, AMA 


.LIST SEQ,BIN 
“NLIST MOD,AC,CND 
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HALT 
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o00so4 oO0S0& . +2 


351 
HALT 
325 B58 Boosie a 
325 Dosets DoseaS a 
355 000514 OO0S16 +2 
356 900516 000000 HALT 
< 
Be Bee poo 
+ 
360 000526 900000 HALT 
361 900530 900532 +2 
Ps H@L T 
+2 
- HALT 
365 si +2 
366 o00S42 00000 HALT 
37 44 00546 +2 
#3 pie pees ca 
371 +2 
255 — 
374 HALT 
375 .+2 
376 HALT 
377 +2 
378 HALT 
373 +2 
380 HALT 
222 +2 
HALT 
383 +2 
224 HALT 
365 +2 
28 , 
/ .* 
32¢ HALT 
2893 .+2 
22; : 
1 _+ 
2x HALT 
+2 
353 HALT 
+2 
2 HALT 
398 hae 
335 +2 
400 HALT 
mi .+2 
+ HALT 
#03 +2 
454 HALT 
405 +2 
sé HALT 
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PWRFL ;POWER FAIL VECTOR 


RRVEC=4 
SWR=177570 711/45 LIGHT DISPLAY REGISTER 


IMP STARTE 

31000 ~ 

4 - etre iis 
200 ;GT-40 BR LEVEL 
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462 OO1006 175610 DLADO: 175610 sDL-11 ADDRESS 
a) 991019 000300 LVCT: 300 -DL=<11 VECTO 
465 001012 O00240 RL: 240 
a8 001014 166000 ROMADD: 166000 sROM STARTING ADDRESS 
/ 488 001016 001060 WORDS: Sle. 
| 485 001020 906000 IMAGE: 6000 
| 71 901022 012706 oD0S00 STARTB: MOV #500, SP sLOAD THE STACK POINTER 
«472 901086 012777 900340 000176 MOV #340; aPSW RAISE PSH 
| 4873 001034 737 901316 JSR PC, INITGT !INIT DEVICE ADDRESSES 
/ 474 901040 001020 CLR IMAGE ; PRESET FOR NO ROM SELECTED 
475 901044 777 001000 cools BIT $1000, JSWR :TEST FOR ROM SELECTED SWITCH 
476 001052 001021 BNE 2 :NO ROM SELECTED 
477 001054 oo0400 000146 BIT #400, ISWR s TEST ROM SWITCH 
478 901062 001007 BNE 1$ °BR IF SET 
479 O01064 Ot 737 901000 OO101E MOV #512. WORDS : ASSUME VER. 2 ROM 
480 901072 1553 001020 MOV START, IMAGE § :LOAD IMAGE ADDRESS 
| 481 001190 900406 BF 2 :START TEST 
| 482 901192 pie? 900400 OO01016 1S: MOV #256. WORDS :SELECT VER. 1 ROM 
483 001110 3535 616000 001020 MOV BSTARTA, IMAGE  ;LOAD IMAGE ROORESS 
484 1116 2 2s: CLR SDL ODER :CLEAR OUTPUT 
485 O01] ¢LR ODBR 
2 hie ier Bie fa cecbeie |inrASHEVEE 
| $88 O0113¢ CLR aPsi ne ; 
3&5 Saitae 005137 apoe se IMP OVER sEXECUTE BACKGROUND TASK 
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| DOGTEC. OS-NOV-76 10:20 
 & 
| 483 901146 172000 GTPC: 172000 :DISPLAY PC 
/ 483 001150 17 GTSF: 172092 sISPLAY STATUS REG. 
| 494 901152 17 GTXPOS: 172004 {DISPLAY X REGISTER 
| 435 001154 172006 GTYPOS: 172006 :DISSPLAY Y REGISTER 
| 487 001156 175610 DLICSR: 175610 :DL-11 STATUS oe 
ues Dolce ioeers BtoteR: {Seeia phott Ever - 
6 HY H - ‘< 
| $60 581185 175616 Bt oS BR: ats Bbrit Bur ie 
| §02 001166 900320 GTDONE: 320 sDISPLAY DONE VECTOR 
3c3 001170 o003e2 GTDNEL: 322 
505 001172 000324 GTLPH: 324 :DISPLAY LIGHT-PEN VECTOR 
Bos 001174 000326 GTLPHI: 326 
| §58 001176 900330 GTSOTM: 330 sDISPLAY SHIFT-OUT/ TIME-OUT VECTOR 
| a3 001200 900332 GTSOT1: 332 
Si1 oo1e02e 000300 IVT 
E12 001204 900302 DLIVTi: 302 
513 001206 000304 DLOVT: 
51 901210 000306 DLOVT1: 306 
516 901212 177560 TKS: 177560 
Ei? O0lel4 177562 TKB: 
Ele OOle16 177564 TPS: 177564 
513 001220 177566 TPB: 177566 
Ei 001 000060 KRBVT: 60 
EE 001224 900062 KREVTI: 
001226 900200 KRBBRL: 200 
25 001230 177570 SWR: 177570 
5e7 001232 177776 PSW: 177776 
9 001234 01 177704 PRIME: aF QGTPC START THE DISPLAY 
ES ate eee a! 105 1777 Noy $108, aoC Sean iEheeL OT SPUT 
1 601 12777 100 1 MOV #100’ 20LICSR sENRBL INPU 
ce foie lire Mele tres Fale BUPiBtooen | irUT At 
1 513555 BeeosT hee 36 MOV ‘PRESET PRINT POINTER 
535 001 bOs037 bens CLR :CLEAR READ BUFFER 
E32 001 624 €cR 
327 001310 000207 RTS EXIT 
E25 poisie O1747E SIZE: 17476 
£46 601314 600000 GTOLYO: O 
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41 901316 912700 901146 INITGT: Nov acTPC, RO $080 ct a ADDRESS 
oe 
As fe be ae C8 Sa ecoges cx: 
‘ as Ss = > 
Ei2 ree heticrs 5014 JSR DLADG ARE + 
S46 001342 013701 9001002 MOV GTYCT. RI it ORD aT a 
54? 001346 737 001400 JSR PC, LOADRO LOAD oh VECTORS 
E48 051356 10110 MOV RI’ (RO) 
1354 090010 ADD #10, (RO)+ ;LOAD GT TIME-OUT 
£50 001360 010110 MOV R1. (RO) 
zed Spt Ee pessee apts MOV 12, (RO)+ LOAD VECTOR VALUE 
226 Bet a88 004737 001400 ISR PC LOADRO ;LOAD oL2Ti VECTORS 
E54 001376 000436 BR INGT : BR 
ts 901490 010120 LOADRO: MOV R1, (RO)+ sLOAD DONE 
S56 001402 010110 MOV R1; (RO) 
5&7 001404 062720 oo000e ADD eo; (RO}+ 
S58 001410 010110 MOV 1” (RO) 
5$ 001412 20 o00004 ADD #4; (RO)+ sLOAD DONE 
1ais 1 119 MOV 1° (RO) 
1 0014 20 o00006 ADD #6° (RO)+ LOAD PSW 
ete 001424 013746 o00004 MOV JeERRVEC,-(SP) ;SAVE VECTORS coATENTS 
001430 ble73? 1956 004 MOV #1$, JHERAVEC SET UP FOR TRAP 
564 001436 012737 17757 1230 MOV #OSWR, aaSWR ;SET UP TO TEST FOR SUITCH REGISTER 
Ses 001444 086777 1 177556 CMP #-1, JSWR TE T FOR: eiuree hy ISTER 
E 1452 1005 BNE 3$ SuTTCH REGI SENT 
4 1 000401 BR 23 'NO Si 
S6e O014Se Oe2ec6 13: CMP (SP)+. (SP)+ ; POP 2 Ti Spos. ae Ter ACK 
568 001460 012737 000170 001230 23: MOV eSWREG, aeSWR :SET UP FOR SOFTWARE SWITCH REGISTER 
570 OO1466 012637 9o00004 3g: MOV (SP)+,Q8ERRVEC ;RESTORE VECOTS CONTENTS 
52 001472 000207 RTS pe sEXIT 
| 228 901474 912777 130 177464 INGT: MOV #GTSTOP , IGTDONE sLOAD DONE VECTOR 
E74 001502 013777 6001004 177460 MOY GTBRL, AGTONEL 
575 901510 tee 002220 77ae4 HOV SGTLPEN acTLPH sLOAD LIGHT-PEN VECTOR 
577 eat LEP? ee36 4 HOV a RL OTH ;LOAD SHIFT-OUT VECTOR 
E abt pi3tee ate 1314 MOV “GTDLY 
520 OO1S46 012737 O0S7S2 905722 MOV #F ILEOC FILEOp 
561° po1ss4 Ole7 474105 MOV #STATSB! INCR+4, GRPINC 
72 1562 it MOV sBUFF2, RO 
1566 p INTD: CLR (RO)+ 
£84 001570 022700 oossee CMP #BUFF2+S0, RO 
S65 001574 801374 BNE NTD 
52 OO1E76 012700 oostie MOV #BUFF3,RO ;SET UP KRE BUFFER 
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DDG C.P 


INTE: CLR (RO)+ 
604 53550 COStE2 CMP sBUFF3+50 , RO 
a INTE 


iy 
“I 
g 23 


N 
5 
ul 
o 
=) 
ow 
an 
za) 
@ 
Oo 
oO 
a" 
D 


888888888888 
pte 


01 177 MOV Me: Mg 
Bbeng 1ooase MOV SKBIN: fice LOAD KRE VECTOR 
1226 177332 MOV KREERL, SRRBVTI LOAD P 


Sn OOmow 

“IO” 

fu £o” 
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a5 
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ry 
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ee 
—fCO 
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x 
fo 
Fo} 8 
<a 
Lea) 
st O2©O 
or 
Pwr a 
2f5 
or 
it, 
295 
2S 
+4 


PWRFL: MOV #PWRUP , d#24 ;LOAD VECTOR 


HALT 
Tete oTeOS oore7y ooocey ARUP FERET  soueet ancy 
Beisis | SABIs> Boros Me STARTS’ SRESTART AT BEGINING 


; SUBROUTINE TO DETERMINE THE SIZE OF CORE 
; AND SET UP LOCATION SIZE WITH THE VALUE 


BRU R EERE SSR aeRO ae 


619 
l 1 l 4 po0004 carved MOV T UP 
aE eattess 15587 poses! HOY 217796, eet UP eR aree 
614 001734 o20000 18: * $20000,R1 : MOVE, TO T XT BANK 
He BIS Bee @ 8 Re aT 
eis sae at 157776 cp 8187776 RI oe 
gig api eee 1371 BNE 1§ ‘ : 
6:9 O01 BR 35 
£36 901754 2s: CMP (SP)+, (SP)+ ;POP THE STACK x2 
621 001 300 DEC 0 ;DECREMENT BANK COUNT 
$25 1 i 1 oep000 Sus #20000, RI : RESTORE 

1764 Leg? osogcg 000004 2s: HOV : RESET Buss ERROR 
Pse coe Teas BOS SaE 001312 SUB BL, S12E SIZE ;BACK PAST LOADER 


BSR 


aoe VERIFY “a: INOEC= ii -006 TEC 
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10:20 


les4Sé 
177773 


151456 


177754 


177744 oO020S2 


“ACY LL 2 oe OS-NOV-"— 2:1 
ROUTINE TO LORD EXCESS CORE ul? 
CORTST: MO SIZE, 80 
mey eeFtes 8) 
ME ac &) 
uw, OATS 
KL OP 1: MOV even"ST 82 
XMLOPe: MOV Ro\e (Rijs 
ome eve rgAO Re 
eS XML OF2 
vl - Sty OP 
XMETS: Rie 0257, Ris 
CLA RI)$ 
cok (R])e¢ 
RTS PC 
ROTVAL: 


‘BSAeL aN 





. WORSE CASE MEMORY 


:GET LAST F E =ore 
+ ENC oF | 


t CORE Is F 
;TEST FOR MORE ROOM 
;SETUP RTS PC 


Ty? + Im THE yg A A ase WHICH WILL BE LOADED THRU 


MAINOER OF MEMO 


MEMTST: ey 
@l234S6, (PC)+ 
MEMDRT: 123456 wonte: 
Bs +4 
HALT 
vee .o4 
sg IS1456, MEMDAT 
4 


REMDat EAN FAINS 


;ROTATE LEFT BYTE OF MEMDAT 
3C BIT WAS NOT SET 


IT WAS SET 
CK HERE FOR CORRECT ROTATE 


snotart FAILED 
MEFORT, DBROTVAL ; 


sREF. 


CHECK AGAIN REFERENCE LOW MEMORY 
TO LOW MEMORY FAILED 
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; INTERRUPT SERVICE FOR THE GY STOP INTERRUPT 


GTSTOP: qs! agTSR sTEST STOP 
Ha. s ERROR STOP INTERRUPT BUT NO STOP FLAG 
bi STARTB :RESTART TEST 

1$: DEC 


;DECREMENT DELAY 
: H JF NOT 


a ene 
MOV Ht, brow yo :RESE oft ay 
INC GRet “UBOATE GRAPH INCREMENT 
CMP SSTATSB!INCR+10,GRPINC -TEST FOR INCREMENT 
BNE STSTl “BRANCH fF NOT 
MOV asTarse! INCE gre tNc ;RESET GRAPH INCREMENT 
GTST1: MOV ILEOC FILEDA 
MOV a1, ac TPC ;RESUME THE DISPLAY 
RTI EX] 
GTLPEN: MOV sF ILEOB, FILEOA 
py or eee RESUME THE DISPLAY 
GTSHIF: HALT :GT-40 SHIFT-OUT/TIME-OUT ERROR 
IMP STARTS 








es 
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GTEC.F1 OS-NOV-76 10:20 
£93 
bs sINTERRUST SERVICE FOR THE DL PRINTER 
6% o02244 105777 I7ET1E DLOUT: TSTB  @DLOCSR :TEST FOR DONE 
687 OO22s0 1004 SMI +10 
688 002252 HAL T ERROR PRINTER INTERRUPT BUT NO PRINTER FLAG 
$3 202254 137 001022 Jme START *RESTART TEST 
f 
23h oo2260 O10446 MOV RY, -(SP) | 
703 0137 30 DLOUTA: MOV PENT RY RY WITH YTE POINTER 
704 Spseee 164 peers 002434 MOVE  BUFFI(R4),PUNCHR it AC ae R TO cE SUTPUTTED 
705 02274 37 002430 INC PPNT PORTE “Gserac T POINT 
238 002300 737 9000S0 002430 CMP #40. .PPNT iTEST F OR END 

002306 O0100e BNE DLOUTB 
738 002210 005037 002430 CLR PENT :CLEAR PUNCH POINTER 
710 4 1} 002434 176642 DLOUTB: MOVB § PUNCHR QOL ODER OUTPUT A CHARACTER 
oi? Bossi? heres "MOV Cepiore TRESTORE R4 
zi od2324 900002 RTI EXIT 
fe 
i : INTERRUPT SERVICE FOR THE DL READER 
716 002326 105777 176624 DLIN: STB  a@OLICSR :TEST FOR DONE 
717 3336 100402 gé +10 
718 HALT sNOT DL INPUT FLAG 
713 002336 000137 001022 IMP STARTE :RESTART TEST 
721 o02e342 O104N MOV RY, -(SP) ;SAVE RY 
722 O0e244 13704 MOV 
723 002350 ii oa 176604 002436 MOVB  a0LIDBR,REDCHR ;READ A CHARACTER 
ee: (ii, ee BENE | Alle RecR AP) © LP temiee aro ne auras 
726 pees: iiz78° 5 INC BENE ‘ out carne Bone 
727 002376 22737 00050 on243e2 CMP #40. , RPNT TEST FOR OR END 
728 002404 001002 BNE DLINS 
552 Dosups # Sov. RENT 

le 0} DLINS: MOV RPNT RY 

731 OOS41E 112764 177 o0ss16 MOVE 8177 BUFF2(R4) ;ADD CURSOR 
732 02424 012604 MOV (SP)4,R4 :RESTORE R4 
es d0e426 O00002 RT] EXIT 
725 002430 oo0000 PPNT: 0 
73 502432 seid RPNT: OQ 
727 002434 9002 PUNCHR: 240 
736 O0243¢ 900240 REDCHR: 240 
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ei Rees Stars 

71 Siewes Gla ome 

753 O0e472 042737 177600 O0ebe6 

754 002500 113784 O0e626 O05ble 

ras Beets POE coy 

757 O02eSeD 00:00e 

vee Ouesee DRY? pcan 

Me 002532 112764 000177 ocOostle 

7$2 

i 002545 Ol 002626 

TES O0eS44 teed 002610 

fee eed Hower eral 

Hs peceee ane 005700 
Geers Lig? Baeer? 

771 if 

a 002576 012603 
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oe 
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: INTERRUPT SERVICE FOR THE KEYBOARD 


KBIN: TSTB @aTKS 
BMI +10 
HALT 
IMP STARTS 
MOV R3,-(SP) 
MOV R4’ -(SP) 
nov KPAT, 
HOVE ark KECHR 
MOVE KBr, “BUFFS 4) 
ins #40. .KPNT 
BNE 1$ 
CLR 
1S: MOV KPNT, R4 
MOVB #177, BUFF3(R4) 
;UPDATE OCTAL READOUT 
MOV KBCHR,R3 
ISR pc, 10 
nove RY, OC Tate 
MOVE =- ROC TA+! 
wees RAT AGS 
VB RY'OCTA 
MOV (SP)+,R4 
MOV (SP)+: R3 
RTI 
118: ROR R3 
ROR R3 
10s: foe RRS 
a ae 81°7770,R4 
ADD #60,R4 
RTS PC 


KPNT: 4 
KBCHR: 240 












; TEST FOR DONE 
;NOT KRB INPUT FLAG 
;RESTART 

;SAVE R3 
SAVE RY 


eek CHARACTER 


Ror eiee 
;CLEAR POINTER 
;ROD CURSOR 


;LOAD RY 
sMASK BITS 
;MAKE & NUMBER 
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;PART 1 OF THE BACKGROUND TASK 


aeR 


787 002630 012737 001000 003010 OVER: MOV #1000,PCOUNT | ;SET UP EXECUTION COUNT 

788 : COMPARE THE ROM DATA TO THE IMAGE DATA 

730 : BIs2000 N . 

$3 : Ra=88 pat 

793 : R3=BAD ADDRESS 

a : R4=BAD DATA 

? 1 BACK: MOV #0. % sSETUP INITIAL WORD NUMBER 
5 Bosess gigce° pRreeS MOY IRAGE. x +E Tp BUFFER 

738 O02646 001415 BEQ M :NO ROM SELECTED 

795 05650 013703 001014 MOV ROMADD, %3 :SET UP ROM ADDRESS 

e696 902654 O111 BACK1: MOV (KL), Ke *READ A IMAGE WORD 

801 0026 1304 MOV (%3)° “4 :READ A ROM WORD 

eC2 CMP 42.44 : TEST FOR EQUAL 

803 d02662 901402 BEQ patke :BRANCH IF OK 

804 902664 900009 HALT "ERROR ROM VALUE FAILED TO EQUAL THE 

805 O0c6&& 000772 Be BACK! : THE EXPECTED 

ESS 002670 022123 BACK2: CMP (41), (434 ;BUMP BOTH REGISTERS 

OES Bee oun BS Boro |e ESTES Ue 

E10 a55500 ca NE BACK1' t BRANCK IF NOT LAS 

S12 ;PART 2 OF THE BACKGROUND TASK 

gis : EXECUTE WORSE CASE NOISE TEST THRU MEMORY 

is 47 TMEM: PC,BUFFER “- ;EXECUTE NOISE TEST 

ELE ae2235 BaStS aPC PCOUNT ORE” pass ” 

817 O02e712 O61 NE BACK : NO 

£18 002714 O1 000001 176226 MOV #1. aGTSR YES RING THE BELL 

818 002722 012777 000207 176270 MOV 8207, aTPB RING THE BELL 

820 002730 105777 i7&262 1S: TSTB = aTPS 

5 Re i . fe 2 

832 l 900207 176254 MOV #207, aTPe 

823 105777 176246 28: TST8 = TPS 

624 002750 100375 BPL 2s 

e25 057 ooon4e TST pa42 sTEST LOC. 42 

Sze 17 BEG OVER ‘BR IF =0 

Smee ie eat 

555 D0s7e4 RESET 

£30 bbe? 66 3700 oco0o4e MOV aa42,RO READ VALUE 

£31 710 LOGICAL: ISR PC, (0) 

832 002774 6 NOP 

£33 002776 900240 NOP 

Ese Sosse boos NOP 

Q BES5o4 eat 001022 | JMP STARTB 

33 002010 oc0000 PCOUNT: 0 
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TEC. OS-NOV-76 
s4c 
on 
842 
843 oc3c12 114140 FILEOO: POINT!LPON 
B45 14 900000 0 
845 002016 001377 MAX’ 
evs 174300 STATSB!LPLITE 
eve ;LINE THE EDGES OF THE SCREEN 
850 003022 11 LONGV! INTHELINEG ;TOP LINE 
851 003024 O417 NTX! MAXX 
BS poaess slau PONGV!LINE! RIGHT LINE 
ge Spsoee pucote Inte . 
003034 6213 MINUSX! MAXY 
BSE 003036 110006 LONGV!LINE2 ;BOTTOM LINE 
gc? QO 061777 INTX! MINUSX! MAXX 
a] 2 Beton 0 
859 003044 110007 LONGV!LINES sLEFT LINE 
869 003046 40000 INTX 
Be 0030508 001377 MAXY 
ee3 ;SETUP THE X SINEWAVE 
BES 003052 114004 POINT!LINEO 
Bee Gosoee 255 
B68 002060 110000 LONGY 
86S 002062 041200 INTX+1200 sDRAW X AXIS 
870 003064 9 
eri 003066 114000 FOINT 
B55 S55530 36 
al 003074 174104 GRPINC: STATSB! INCR+4 ;GRAPHPLOT THE x SINEWAVE 
ere 003076 124000 GRAPHY 
992199 900200 0200 
878 003102 o00205 os 
67S 003104 00021 021 
880 003106 00021 021 
861 pzit 24 0224 
gee 11 31 0231 
093114 000236 0236 
684 O021i6 o00243 0243 
Eee Bases Boose bc 
2Ee ra 
869 003130 900c6 0265 
£50 993132 000270 270 
Bes Sosise bosses ae 
852 003140 O00e76 D276 
8S4 003142 Oe 
ess 003144 000277 0277 


ee me ee 


HOe 





—) 
tu 
uJ 
o 
Le 
a. 
Qo 
a 
tu 
oa 
[ve 
~ 
! 

— 
oOo 
7 


SB prewr eas anencee-wnoo gre 2 SAEAMS BRS 

Sf RSA AAA oie at Ns ea aetna eens 

ee eet Ban nea ee eee egret 
: panies itat Su cisieetbttatertcteteirettitetave cts site ei tetsie crave terrtetnis 
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ws 
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z ut 


;, SSSEeeuE seis Rate ape 
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ee Bee ee 
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gis Ce Ree cee Rae Ree Re oe Doe Re ee Re ee oe De ee De ee De ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ae ee ee ee ee ee ee ae) 


$c ewe SOR ns le une 





VERIFY Tike 


QU 
TEC. 





ee ae ee -_— + <= 





me ee eee ee Oe 


KO0e 


: 
| 


Tr 
tw 
uJ 
<3 
Zz 
a. 
oO 
4 
i) 
-4 


> 
a 


OS-NOV 


11-DOGTE-C 


OS-NOV-76 10:20 


NDE‘ 


CK VERIFY MAT 
C.Pll 


GTO oul 


DDT FOO Oe BIRD F MRI a4 OO OOO B BOO ae taesed F MOR ke Co 
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BSSSsses88 


scram 


et te eee eee ee 
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SSE cee SP Grae 
pooeeeees FEE eee eee NMRA OTST LAND RGB SEAR Rees 
8 Bane BRBRRSRSR EASES SRBR SBR SR ER RRRRRERBRRRRRSRRS 


MAU UUROMOO OF FF FF FF FT MAAR OudB DBD BO A 


EE Od OO OE Od OE GG dk OR OG OG OG Od Od OG OG Od Ok OG Gd Od Ok Ok Od ad OH Ok Od Hd Od Od Od Og wd Og nd Og 4 wo EE OH Eee oF 
te ee Re ae eee ee Ree Dee Lee hee ae Re ae hoe he ee he oe De oe Doe Doe oe oe De oe De eo ee Po 7 Fe ee oe Re ee eee ee ee ee ee ee Ce Doe he De De hoe Doe Doe Loe Doe hae] 
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| DOGTEC.P11 





om Nin inet F310 


AQOOWOWOOOOVWOOW000000 


BOOOo atmos Fino 


OE nd rd nd od od ob wa wh oe 


ssofetztzsofetatataitaseiciaseie 


SoRERNR MONE paNT:s 
AAAS AS ARR SRA AAAS 


Mats Mottotutetatutetitstgtgt nen 


oe Room Reet eee eet Doe Dee Doe Roe hoe Doe Doe ee oe oe Pee ee ee) 
DE nd 8 nd nd nd Od nd ond Od ng Og Od Od Od Om 


: 
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;SETUP TO DISPLAY THE OCTAGONS 


te 


RELATV!BLKON 


N 
EL a aad oe 

NTX!M 1608 
Re NUSX* 600+MINSUY+7 
NTX+#MINSUY+ 
NTX+#16004+MINSUY+7 
POINT 

430 

10 
oY ad 

ee +17 

INT Nsxe36q0617 
INTX!MINUSX+3600+MINSUY+17 


NTX+M 
xe SeSBonihuve17 


os a 
NIX Se +MINSUY+37 


INTX4#MINSUY 
INTxe7eoBentNeuye37 


SHORTV! BLKOFF 

NTX#77 

at a a TA 77 
at eel 


INTae] eooUnINSUY677 
520 


bona’ ;OCTOGON BY LENGTH OF 137 
NTX4#137 
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peeeeee 
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0+ 0+ = 0 8 hs 2 aw oes 
ferme 

Tata i 

Oss 


~ 


~ 
~ £09000 


8 
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2 
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é 
5 


ase 
Raise 


~ 
~ 


peer 
YIVEIASBIAA 


Ce ed ed 


WBS 


SRIRRE RE Bsa Soo E TERS OTS rt 


ES Eee 


ru 
8 


isan: SaNeNy 


uw 
e- 
Ss 


Daeio Byeei2 
047516 050520 
OS2Se4 06356 


i 


SSE SRR oR 
8 BR 


i) 


+ Ob = bs 0 + + eb 0 + b* Os B+ b+ Be Be B+ Be Be Bs ho Be he Bs = Oo Oe oe he he bh 
= 


ins 
ry, 
itr a 
BS See 
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Q 
INTX¢137 
137 


ae 
INTX!MINUSX4137 
NTX!MINUSX#137 


NTX!MINUSX*137 
MINUSX4#137 


INTX 
MINUSX+137 
INTX*137 


BI NUSXe137 

POINT! BLKOFF!LPOFF 
1340 

LONGV sOCTOGON BY LENC TH OF 177 
INTX4177 

INTX4#177 

ie 

NTX 

177 

INTX!MINUSX4177 

NTX!MINUSX4177 

INTX!MINUSX4177 

MINUSX*177 

INTX 

BINUSX$ 477 

INTX¢] 

MINUSX4177 


aa 
-100 


DNOP 
ow ITALO 
-ASCII *@ABCOEFGHIJKLMNOPGRSTUVWXY2° 


sASCIZ 2 !"8S%8" (#+,-. 0129456789: +< => 79 


. EVEN 
ON 
STATSAIITALL 
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“-NOV-76 10:20 
13% OO4“es4 114000 POINT 
OO4ESE 0001 100 
i ee MAXY=130  aeienteeiain 
10 4 041502 O425 ASCII ‘*SABCDEFGHIJKLMNOPORSTUVWXY2’ 
ai} 043206 pei? o4s512 
315 Seite Reyes2 bededs 
31% OO0%714 054530 132 
ue 004717 o4 Ge10"s 022043 sASCIZ 2" 8S48" ( )#e,-. 10123456789: 4«=) 79 
rd 
is an 
oe 1061 5 
218 OOS74E O34067 025071 036053 
004754 037075 900077 “ 
780 1 eFateas 17ALO 
7é2 ll POIN 
OO4764 220 
768 001177 MAXY-200 
770 100000 Teak | 
140 141 142 BYTE «140,141,142, 143, 144, 145, 146, 147 
143 ies 14s 
146 147 
150 151 1S2 -BYTE 150,151,152, 153, 184, 155, iS6, 157 
153 iss iss 
005010 1Sé 157 
is 160 161 ts .BYTE 160,161, 162, 163, 164, 165, 166, 167 
] 1623 164 l 
166 167 ™ 
170 171 172 -BYTE 170,171,172,173,174,175,176,177 
pense 173 174 175 
176 177 


: 


Fea racy 
POINT 


220 
MAXY-230 . 
TBYTE 140,142, 142, 143, 144, 145, 146, 147 


cae 
: 


etek 


PRATT STEAL Go SRST OE TOO 


1 
Sheree io * 
o05054 150 151 152 -BYTE 150,151,152, 153, 154,155,156, 157 
eo i 
160 161 1b2 -BYTE 160,161, 162,163,164, 165, 166, 167 
? 1g 16 165 
i73 173 17 -BYTE 170,171,172,173,174,175,176,177 
005102 176 177 - 
ze AE 
104 1 eta SAY ITALO 
j 14 Poin 
il 


se ee Bs hs ee Be ae et Be ee he be Be be he Bae Bee Bae Be he Be ne #8 he Be he he he he hh hh he heh es he ee 


e 
MAXY-300 


* 
f 
i 
8 
q 








DO3 
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16,0,1,2,3,4,5,6,7,10,13,12,13,14,15, 16 


das 
: 
> 
mM 
© 
BOR 
-t-@ 
89800 
= -—<~7T 
state tatey 


© 
w 


20,21,22,23,24,25, 26,27, 30,31, 32, 33,34, 35, 36, 37,1 


.BYTE 


EVEN 


ote ctaaans 


OUT F TUB, Dub BR tee 


oOo Oe Oe 4 Oe Oe ae Oe tote @ 


Sisisiatsicizictotet 


mf 


 etbhtate 


ett 
POIN 


ote 4 


Be 


16,0,1,2,3,4,5,6,7, 10,11, 12,13, 14, 15,16 


220 

MAXY-330 

CHAR 
BYTE 


fs 
~ 


20,21,22,23,24,25, 26,27, 30,31, 32,33, 4,35, 2%, 37,17,0 


GV! INT7!LINEO 


ONGV! INTS 
reer 


BYTE 
eFe8e 'ITALO 
OINT 


; SETUP areesty LEVEL TEST 


2 
Po 
3 
a 
a3 


Sakae SeaetS : 


| Eee 


BBRE 


come | Ee 


ST SSeS iu A so a ao ea ee ee 


Ce tt Rett a Re Ret ee Re ee ee oe Re ee ee ee ee oe oe oe oe ee oe oe oe oe oe oe ce pe i ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee re re 
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ORE BRE gee iiteedl 
we axee! NTX+4 
re 5314 0 


1421 S0E316 114000 POINT 
«45S SBRSEB eg 
tae ca 
} 14 NTX¢4 
| Bee ae bar 
see oa “3 
15 Beesss P7835 PONGV! INT2 
1431 O0S342e 040400 ‘INTX#400 
1432 005344 000000 0 
1433 OO0S346 114 co 
1434 005350 
1435 005352 000500 500 
1436 005354 112200 LONGV! INTI 
| We nae 040400 NTX#400 
oh i‘ 
1440 005364 340 
144] 005366 000440 640 
1442 005370 112000 LONGV! INTO 
1443 005372 040400 INTX+400 
ea 005374 900000 0 
] 
ivr ;SETUP THE MESSAGA BUFFERS 
1 00S376 117000 POINT! INTY 
1449 005400 400 


HAR 
-ASCII /COM OUTPUT / 
BUFF1: .ASCII /DECGRAPHIC-11 DISPLAY TERMINAL GTYO VR14/ 


047503 


8 
i 


ine £ 
srs 
ze 
= 

ae 
tawe 


R 
3 
setae 


ts sagerns at 
i 


a 
BBE 
SSBB 

B88 


oe 


POINT 
400 


CHAR 
~ASCII /COM. INPUT / 
BUFFe: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


RRchisae sna caaenut une 
. 
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-BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


CHAR 
~ASCII /KRB. INPUT / 
BUFF3: .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


-BYTE 0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0 


OCTA: .BYTE 0,0,0 


HAR 
-ASCIZ /LIGHT-PEN HIT/ 


FILEOC: pst 
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2 


3 
R. 
ao 
mts 


ais 


+ 0+ D+ B-* b* Bh Bs 2 Be 
uw 
ad 
aT 
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wena UES REO oa oe 
; EXCEPT FOR THE NEW ORGIN ADORESS AND SEVERAL “! 160000" 

; FOR _ADORESS FUOGING THIS zon AN a COPY OF THE CONTENTS 
: OF THE GT-40 BOOTSTRAP VE 
 ssneeeeseeeDESGeSGHRSSORERDEOSSODATREESOROSROSOEESOREGS 


-TITLE SCROLLING ROM BOOTSTRAP FOR THE GT4O 


; BOOTGT.T16 OCT 10, 1973 


ogy Ae {373+ DIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASSACHUSETTS 


01754 
; WRITTEN BY JACK BURNESS. 
; THIS PROGRAM IS THE SECOND VERSION THE THE ROM BOOTSTRAP FOR 
; THE GT4O DISPL vee NAL. IT INCLUDES SCROLLING AND AN END OF 
; MEMORY SEARCH HE NOROER. 
- ENABL S,AMA ;ASSEMBLER DIRECTIVES FOR A UTE BINARY oon TPUT 
7 - 3 RB TE: USE “MACDLX” TO ace LE THIS PR 


~SBTTL DEFINITION SECTION 


Ce eee 


ee 


rip 
<6 


miata e 
ot 
oO 


(ob SRA 


2829‘ 


Patalialialtalialialiatealtaltsgemrea) 
ab tt 


OO bs hs be 8 8 te he ee 
30 32.84 
-O.000-) 


- 
co 


id 


eed ae ed 
OOOO MrMmmrma@cam 
0 2 2 bb 0 he he Be 
WOM Uls dome 


CR EERER 


= Os 0 2 be 2 he be bs ee ee Be 
ao 


f 


to 
a 


ot eet ook ed 
romd: 
Pataca 
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; REGISTER DEFINITIONS 


COUNTR=RS 


; LOADER DEFINITIONS 


a 
b BEE TABENT 


L 
L.CKSM=COUNTR 
TNDEX=SCAN 





;DEFINE STANDARD VALUES. 


; iPomte y ‘ted Pits CHARACTER. 
OINT : X phe oh BYTE IN DISPLAY BUFFER 
THE “TAB” ty TURE. 


SNES CONTAINS. a POINTER WH paCy 
N_SCANNING eee 4 SOMETHING. 
‘SPP TCALLY 4 yt! UnICH S USED TO RETAIN 


16 YeLuE. FOR. USED aca) TBUNTER.. 


;CHARACTER INPUT FOR ne Loe 
‘CUE BOF Dat Tfens fot 0 CORD. LOADED. 


CHE cK SUM _ON 
; INDICATES NOU Fo TSSeMBLE THE § BIT CHARACTER. 
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ee eee eee ee 
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DEFINITION SECTION 


ORIGIN=166000 


DL111S=175610 
DLILIB=DL11I1S+e2 


Bt t88=Bc1168+8 


KBOIS=177560 
KBDIB=KBDIS+e2 


GT4OPC=172000 
GTYOSR=GTYOPC+2 


sages 
Theeho=?776 


ORSTR=4 ta 
oy = laa 


CRLF=S015 
ALTMOD=175 


DISJMP=160000 
DOISTOP=173000 
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MAJOR SYSTEM DEFINITIONS 


;ORIGIN OF THE BOOTSTRAP. 


Bist STATUS ey Ao ~_ 
CHARACTER 


SUPT SG Oe PE Ab ha 


;KEYBOARD INPUT STATUS 
;CURRENT CHARACTER FROM KEYBOARD. 


;GT4O PROGRAM COUNTER. 
:GT4O STATUS REGISTER ADDRESS. 


START oF THE DISPLAY BUFFE even or em 
fesse N OF INET RL EZB TOR STACK. . 


:HHERE He POINTER 15 0 Fast CHAR ON SCREEN 


LINES ON TEXT TO SHOW ON THE SCREEN 
;CARRIAGE RETURN - a pEED 
:THE “KEY” CHARACTE . ALTMODE). 


;THE GT4O JMP_ INSTRUCTION 
;THE GT4O STOP DISPLAY INSTRUCTION. 


-SBTTL INITIALIZATION AND RESTART CODE 





ae ee | ae ee ee 
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| DOGTEC.P11 © OS-NOV-76 10:20. INITIALIZATION AND RESTART CODE 
| 1687 
«1888 
1889 | 
| 1690 : GT4O0 BOOTSTRAP CODE 
1631 Se eee 
| 1692 
| 1893 
1694 
1695 
13 006000 . 26000 
1635 : . SORIGIN sDEFINE ORIGIN OF THE BOOTSTRAP. 
| {596 
| 701 
| 1702 
| 1703 
1704 
| 1705 : COLD INITIALIZATION CODE 
i 1706 BS OOS EE a aa eee 
1707 
(1708 
| 18 START: RESET 
od 000007 175610 MOV #7,D0L11IS HIAT1et ze’ OL Nout NOW. 
| \?le 007776 MOV #TMPEND , SP STABLISH a 00D TEMPORARY STACK 
i713 POINTER FOR CORE SEARCH. 
714 175614 INC DL110S AK BI 
1715 166652 ISR SCAN, OUTLIT! 160000 :FOR 2 CHARACTER TIMES 
1218 -WORD 0 :SEND TWO ZERO’S 
‘Irie pe0004 MOV #CORSTR ;GET ADDRESS OF BAD CORE TRAP VECTOR. 
1713 166042 MOV SNOTHERE? £0000, (SCAN)+ ;AND INSERT A POINTER TO US THERE. 
1721 ENDCOR: CLR (SCAN) + ;NOW CLEAR ALL OF MEMORY ORY BEY EYOND THE. THE POINTER, 
i7ee gR ENDCOR :UNTIL WE RUN OUT 
1724 
1725 OO6042 005743 NOTHER: TST -(SCAN) sWHEN WE HE 
1726 WE BACK UP TEE OSNTER Fo” oro REE 
1727 "NOTE THAT IF UE TRAP OUT AGAIN. IT 
17 :1S ef C WI 
17 : L Et (A G00 CORE ADDRESS. 
1730 06044 010206 MOV SCAN, SP : WHEN antht Is LAST LOCATION 
73h 105727 175614 1$ TSTB = OLS ae THE nes BREAK HN BONE ~ © 
1535 Reece 188752 ee RB Gd BAC 
1734 006054 005037 175614 CLR DL110S : CLEAR BREAK BIT 
17% 
1737 
1738 
ine 
1741 : RESTART INITIALIZATION CODE WHEN COMMUNICATIONS IS WORKING. 
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DOGTEC.P1l 


1752 


sabeluleays 


ey 


ea A a a RL A a 
clotettatetptatet 
WON +s - 


ROR REAR RARER 


1782 


Poe ‘ewe 


00&126 


OS-NOV-76 


007776 
006700 
000040 
005015 


166432 


RESTRT: 


SETLP1: 


SETLPe: 


SETLP3: 


SETDUN: 


—O 


MOV 


MOV 


. SBTTL 


06) 
ON AND RESTART CODE 


KOQ3 
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#TMPEND, SP sFORCE THE SP TO LIMIT OF EXISTING CORE. 
wGL INIT -NUMLIN-NUMLIN, SCAN sNOW WE WILL FILL THE KEY AREAS OF THE 
#NUMLIN, TABCNT :DISPLAY BUFFER WITH INITIAL CR-LF'S. 

#CRLF, (SCAN) + s INSERT A CRLF NOW. 

TABCNT $ AND LOOP UNTIL DONE. 

SETLP1 :THUS DISPLAY CORE IS ALMOST CORRECT. 


#SETUP! 160000, SCAN 


(SCAN) +, TABCNT 
SETDUN 
(SCAN) +, POINTR 
(SCAN)+, (POINTR)+ 
TABCNT 

SETLP3 

SETLPe 


#BLIMIT-2,POINTR 


VTOS SIMULATOR 


;NOW WE WILL INITALIZE CORE FOR THE 
;DISPLAY. PICK UP POINTER TO LIST. 


T eee OF ITEMS TO INSERT. 
ete uP’ riRst TEORE fi ADDRESS POINTER. 
; MOVE iid A DATA ITEM NOW. 


;ALL 
;NOPE. MOVE OVER THE NEXT 
YES. GET NEXT MAJOR LIST TO INSERT. 


;ESTABLISH THE BUFFER POINTER NOW. 
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| DOGTEC.P11 OS-NOV-76 10:20 VTOS SIMULATOR 
| 41783 
| ie 
| 1786 : VTOS (SCROLLING) PORTION OF THE BOOTSTRAP 
| 1788 . 
ce 
179 l 737 S64 NXTCHR: JSR PC. GETCHR! 160000 -GET A CHARACTER NOW 
that GREISE Boace> ABR PES CHP 80s CHAR. #177 -IS IT OUT OF RANGE? 
1783 006142 37 BGE NXTCHR : GET ANOTHER ONE. 
«178 0614 5323 p00040 CMB CHAR. #40 :IS IT A PRINTING CHARACTER? 
| 1765 150 BGE NORMAL :YES. IT’S A NORMAL PRINTING CHARACTER. 
| 17968 906152 010003 MOV CHAR, SCAN ‘ “MOVE IT OVER SO WE CAN PLAY WITH IT. 
| 1797 O06154 703 000007 Sus #7, SCAN ; ‘BIAS SO THAT BELL [7] IS ZERO. 
1798 006160 Oe20327 000007 CMP SCAN, #7 IF CHARACTER IS Less THEN BELL OR 
| i788 06164 103362 BHIS § NXTCHR :GREATER THEN CR, THEN IGNORE. 
1800 OO61&6 ASL AN tIF GOOD, MAKE If WORD INDE 
1801 006170 ADD SCAN, PC : tO THE CORRECT ROUTINE 
| 1654 BOEITa | BOONE Be CBRL TO SBACKSPACE 
i Beet Se Beet BR TAB :11=TAB 
«TERS Bbpsn poeiss 4 f ee EEO EE ry 
ieee Boe S54 pep iss FF :14=FORM FEED [FF] 
| 1803 :1S=CARRIAGE RETURN [CR] 
181 
tte O0&206 012702 177777 CR: MOV #-1, TABCNT ;RESET TAB POSITION ON A CR, AND 
| 1813 ‘FALL THROUGH TO INSERT THE CHARACTER. 
| Jers 
BIB pose1e oco4737 166350 NORMAL: JSR PC, INSERT! 160000 - INSERT THE CHARACTER IN THE BUFFER. 
| 4817 OO6216 9O0S20e INC TABCNT ;UPDATE TAB POSITION NOW. 
| 1818 006220 000744 BR NXTCHR AND GET NEXT CHARACTER. 
| 1820 
gel 
1855 006222 012700 ooDD40 TAB: MOV #40, CHAR :0N A TAB, INSERT BLANKS UNTIL THE 
1824 O06226 004737 166350 JSR Pc. {NSERT! 160000 ;NEXT CHARACTER POSITION IS A MULTIPLE 
1 Bs Bee nN TA Be 
1826 000007 I #7, TABCNT !ARE WE DONE YET? 
1827 O06240 001370 BNE TAB :NOPE. 
1828 006242 900733 BR NXTCHR : : YES 
} 
1 
ies o0244 111705 VT: MOVB (PC) ,COUNTR sTHIS PUTS THE LOW BYTE OF THE 
ig :BRANCH CODE IN COUNTR-SAVE A WORD 
1633 C0624 O0040S BR FFLOOP 
} 172002 : R THOSR :RING “WRITE IN GTHOSR 
He ER BBE a OE a 
183& OO06256 012705 oDD040 FF: MOV sNUMLIN, COUNTR ;FORM FEED IS DONE BY INSERTING LF’S. 


SCROLLING ROM BOOTSTRAP FOR THE GT4HO MACYLI 2711 
DOGTEC.P11 OS-NOv-76 10:20 VTOS SIMULATOR 
1839 

1g3¢ o0b262 700 coogi FFLOOP: MOV 
tedd S588 SheS8e see 
1843 O06274 003372 86T 
gas 006276 000715 BR 
1Ssé 

igs? 006300 O12746 166132 LF: MOV 
i848 

1850 006304 013703 007012 LFSUB: MOV 
185e 906319 122309 LFLOOP: cneE 
1854 314 4398 007000 CMP 
1855 9006320 103773 8LO 
tee? Doesse ponreg Cot00 ER 
1858 

1853 006330 o0S203 LFOUND: INC 
1860 006332 O42 900001 BIC 
1861 O06336 O16 007012 MOV 
1862 006342 004737 166350 JSR 
1863 O0634& O05000 CLR 
1864 

1865 

tee? 

i868 

ig69 

1870 006350 110021 inean INSERT: Nove 
tess DOESee | BBiost BNE 
Hin ees Genie 20700 ri 
lore forsee OIG roy 
i673 Doeara paoae Seenoe age 
ie ee foeahs nt: 
1 4 s 
188i 

1 4 NSRTL: CMP 
tees Bests BrStt secure pars OF 
1824 006414 012741 60000 MOV 
eg 006420 605041 CLR 
1887 006422 000207 INSRTX: RTS 
a 

1891 

1892 

1633 006424 012737 OO1000 172000 GTBUSE: MOV 





Hana 160000 
PeonTe . 


#NXTCHR! 1600090, -< 


JMPADD , SCAN 

(SCAN) +, CHAR 
SCAN #BLIMIT 
roses 


SCAN 
SCAN, JMPADD 

PC C,JNSERT! 160000 
C 


CHAR, (POINTR)+ 
INSRTX 

POINTR, ABLIMIT 
NSR 


sreoen! i¢0000 jPOINTR) 


Ose -(PO 
-(POINTR) 
PC 


#BSTART , GTYOPC 


908) OS-NOV-76 12:10 PAGE 39 


ee THE CHARACTER A LINEFEED. 
DOE? ; LINEFEED. 

;NOPE. KEEP SENDING THEM. 

;YES. NOW RETURN. DO NOT FALL THROUGH. 


“RETURN TO NXTCHR AFTER PROCESSING 
;THE LF BY FAKING A JSR. 
;GET POINTER TO FIRST CHAR ON SCREEN 


AND LOOK FOR A Le 
1601 hea 


We EER ON 
:NO AT TOP RESET TO NBoTTOM OF BUFFER 
as KEEP ON LOOKING. 


GOT THE Lire. FEED, 
rigst LINE BY CHANGING T 


TOP SHOWING 


- INSER 
a9 1 INSERT ONE NULL CH 
: THE MP* ADDPESS 
5TH 15 Gum OT BRANTEES WE rein 
:TO I SeeRT 


Se beh 


i STICK IN THE CHARACTER NOW. 
;1S_ NEXT POSITION EVEN 000? 
D. NO PROBLEMS. SPACE IS PLLOCATED. 
VEN. ARE WE AT THE END OF THE BUFFER? 
NO. JUST MAKE ROOM FOR ANOTHER ‘ 
VE THE aTUre TO THE 


it Teter oT 
NeoPL BOUT ENE TO SAVE SPACE. 
iB ats tp Bh Re rT AT THE 


HROW THSERY THe tas Hey ied OF HERER 


MAKE TAVAILABLE : NEW CHARACTER SP 


;FINALLY RETURN TO THE CALLER. 


;0N A BUS ERROR, WE MERELY RESTART THE GT4O AT 


—— 
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DOGTEC.P11 OS-NOV-76 10:20 VTOS SIMULATOR 
; THE RITE FOR THIS R 
31S THE FIRST W fo ia ite TABLE 
BELOW-IT SAVES 


; INITIALIZATION TABLE FOR THE SCROLLER 


SIRURRER ROSES RE REE Som oncu CBRNE SESE 
E% 
S888 Be 
Ex 


006432 oo0002 SETUP: .WORD s INITIALIZE 2 WORDS.--ALSO RTI FROM ABOVE 
006434 000330 “WORD 330 STARTING AT LOCATION 330 
0064 “WORD  GTBUSE! 160000 “FIRST WORD IS POINTER TO BUS ERROR ROUT 
006 ‘WORD 200 SECOND WORD IS NEW STATUS WORD ON INTERUPT. 
; ? s INITIALIZE THE OF T FER T 
WORD BLIMIT-2 ia PGR SPACE TO INSER THE chia acTER. 
Boeues 166474 ; ISIMP, HEA R! 160000 pee oe ay ° 
pope 1 “WO DISINE ; AND Sid iyi TO Absit aR. THE saa ae 
1 ‘ IMP? Be TT T-NUMLIN-NUMC IN ;AND A DISJMP TO THE FIRST CHAR ON SCREE 
006464 901 .WORD 1 " sFINALLY START THE GT4O GOING AT 
O06 172 "WORD  GTHOPC : THE POSTON QN_ INSTRUCTION IN THE 
006470 166474 "WORD HEADER! 160000 
006472 o00000 .WORD 0 ;END OF tT CODE 
: HEADER BLOCK FOR THE SCROLLER 

474 | R: . 334 NKING 

476 debt snes “HORD 193 i BrINiNe BOX- BOX-R mt 
Perens ieeaag ee «teTaaO OOD “staty GISTER 
Greens tong) 001382 ee be th pie 

io 1 “WO 103324 TO OCHAR 
O06£12 160000 007010 “WORD DISJMP, JMPADD-2 SAND TO THE CHANGING JMP INST. 


ob bs b= b= 8 2 bb 0 bo Bs = Os be bs bb 2 bb bs Ps 2 8 B= OB 0 = Bb 0 Ps = 0 


£2 


.SBTTL COMMUNICATIONS AND MISC. SUPPORT ROUTINES 


—- — - oe CO - 
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OCTEC.P1: OS-NOVv-7% 10:20 COMMUNICATIONS AND MISC. SUPPORT ROUTINES 

1943 

i345 

ise 

iss COMMUNICATIONS HANDLING ROUTINES 

1$48 , 

19s 

1$50 

19S: 

19s 

iss3 

1354 : THE Di-11 HANDLER 

i3$s fe ae Sn, eee 

ie 

133 006516 105737 175610 GETDL S78 BL111S ; CHECK THE HOST INPUT STATUS. 

135: sores it 175612 an ROVE ECITTE, oun HOST tate cs 
e é 17 19 0 Ww w 

1963 Bee ES Baer oo TS5E50 ‘ Bic 3-255-CHaR : MAKE ae SEVEN 

1965 E42 001765 BEG GETDL IF NULL 

ie 006544 900207 RTS PC ELSE RE Bet 

197? OOES4E 105737 177560 GETDL1: TSTB  KBOIS ;DID USER TYPE A CHARACTER? 
i ae US ges a 
16 Sie OOO7ES BR GEYOL :BNO CHECK AGAIN FOR INPUT. 

1972 

1873 

1974 

ig7s 

1378 ; THE “GET CHARACTER” ROUTINE 

$728 . 

ae 

196 4 D047 5) TCHR: PC GETDL! 160000 :GET A CHARACTER FROM THE HOST NOW. 
1253 Spees- 6 igetse = 23 cra anc TAD iI 17 SN MAC THCOE™ 

ise 006574 001025 BNE NO T NOW. 

s 

rsec 5 1SESIE ISR TPL! 160000 ;YES. GET ANOTHER ONE NOW. 

136 og ey 600114 CMP :15 i1°En © 

} iS01 BEG chee :YES. START LOADING NOW. 

1988 O06610 de00e7 000122 CMP CHAR, #’R :1§ IT AN “R™ 

1362 ObeeI4 OOIDIS BNE - GETEXT ;NO. IGNORE THE ALTMODE AND JUST RETURN THE CHAR 
oe 

19$1 06616 912737 172000 007010 MOV sDISTOP, JMPADD-2 *. YES. RESET. STOP DISPLAY BY INSERTING A 
iss B06E24 137 366060 PRESIR: JMP PESTRT! 16000 het UCTION IN THE BUFFER, Mo Res ia zo 
$95 

196s , 

1996 

1997 

ode THE “GET A SIX BIT CHARACTER” ROUTINE 





$ 


Paina 


00D MOP un ££ iufue- 09 


tana oaks 


CO4 


eee” BNBore assed CommunrtattOne: aS HEE Reba neihes | 


Seas Decose | AReENC ne Ae ae ee ge 1S 17 AiCESA’ PRINTING CHARACTER? 
Bes fag: ce Ade data Pung 
008642 O20027 000137 SMP CHAR, #137 IT'S BIG ENOUGH. IS IT TOO BIG? 
O0664E O03114 867 L.BAb YEP. ABUR 
006650 000207 SETEXT: RTS PC sRETURN TO THE CALLER. 
: THIS. qureuTs TH TWO CHARACTERS VIA A 
: "Two ¢ SEeNASeTERS* 
112337 175616 OUTLIT: MO CAN)+,DLII 
Seeeee iigsec i DeeiE nove San), BL toe :DOUBLE BUFFERED 
006662 800203 RTS : RETURN 
: THE “GET AN EIGHT BIT CHARACTER” ROUTINE 


THIS ROUTINE DIFFERS FROM THE PREVIOUS ROUTINES 


Repel SER Pees eae 
ON WE uit ee 0 THE LOADER DEFINITIONS OF THE 


Ree ta TERS HE CHARACTER IS RET 
GISTER “L. sey TEE rae THAN CHAR (THOUGH NEY ARE 
PHYSICALLY THE SAME). 


poebes 737 166630 GET8: JSR PC Ae ares eT. Ae speit CHARACTER. 
O0&E 


10046 MOV L.BYT ;SAVE IT 

Bares LEEE7E te GAPS: ccominenn | sUPOATE ripe Toten T Eee FOr THE INDEX. 
906700 cae s GETSTE: Be 781 :INDEX=2: ASSEMBLE ei tine CHAR 
006704 Es GETeS : INDEX=6: ASSEMBLE THIRD ano LAST 


;INDEX=8: RESET ROE TQ 0 [2! AND. “RETRY. 


006706 012703 000002 GETEN:, MOV 82, INDEX ';THE FOURTH INDEX IS THE SAME AS THE FIRST 
: ; INDEX. JUST RESET IT AND FALL THROUGH. 



















04 


| $C 
DO: 
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ctec “NOV=7 10:2 COMMUNICATIONS AND MISC. ‘SUPPORT ROUTINES 
Boss 
2056 rie 209737 166630 GETB1: ISR c,GETSIx! 160000 PO THER CHARACTER NO. 
a. 736 866300 Bee i a GS a ek SS fee 
3058 7e2 006200 asi r Ey 8 B17 CHARACTER. NOw MERGE 2 
Sess i Rae bByT if W zt gis ae fe uty THE SIX 
5262 apesss 10628 ASL L.BYT iB] TS 1 THE ,SHRac tte 
2063 D0673e 106116 ROLE (SP) ae ist ¢ ReRACTER Te FE Re WW ASSEMBLED, 
; 444 
scee BoP ls? BASE RTS PE iso eit att “EO ste aE IM. 
5565 
GETB2: ASL L.BYT :THE SE CHARAC A 
cee Weacia's Asi C“ByT ite § Roar gHT BITS Sere EET Eo et eacter 
2070 OOS744 | Asie C-BYT THe Four OOLE BITS OF THE PRESENT 
} Doe 7He ese ROLB HOLD ig BO TT SHARBC TE 
O72 106.300 ASLBSs«L..BYT SWE WILL CREATE THE NEW 8 BIT 
35 Serge 10€104 ROB HOLD TN SATS REGISTER SINCE IT 
2074 4 106300 ASLE ~=s«&L: BYT *MORE CONVIENT. WE WILL MOVE OVER THE 
5075 06758 106104 ROLE HOLD ' ANSWER AT THE END. 
2076 006760 13eHe ASL =Ss«L..BYT ZONE MORE TO 
006762 106104 ROLB «HOLD : DONE. 
20793 Boece fetes HOV re ot at OT MRCCENBER THE an) CHARACTER WE RECEIVED 
ere oe Bo5857 RTS | Sette ae RETURN TO THE CALLER. ma 
2982 
083 77e 006100 GETS3: ROL L.8YT if TER IS Y. JUST 
5585 774 0610C ROB  L.BYT :s NEC E MERGER CF LEFT THO BITS” 
208s 006776 O06004 ROR D :PREVIOUS VALUE WITH RIGHY Be softs 
zr5e eee FORE LBYT OF LAST (4TH) CHARACTER RECEIVED. 
2088 106000 RORB  L.BYT SAND WE ARE DONE. 
2089 007006 05726 TST (SP )4 SFINALLY THROW Aaa STACK. 
gos 07010 O0te0? RT pt "AND RETURN TO THE CALLER. 
2092 
20e3 
50S4 
2085 
2096, 
3097 
2096 
2099 
2100 
2101 
215 
ells 


-SBTTL THE LOADER 
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DOGTEC. 10:20 THE LOADER 


DS-NOV-76 1 

1o4 

13s 
Ste : THE LORDER 
2108 eth" eee doemeene 
2108 

110 

2 

us 007012 012737 173000 007010 LOADER: MoV #DISTOP, IMPADD-2 sSTOP THE GT4O BY INSERTING A “DISTOP™ IN THE LI 
e115 007020 005003 CLR INDEX sRESET THE 8 BIT ASSEMBLER TO THE FIRST CHAR 
el 

11? 

sie poscs L.LD2: CLR L.CKSM sCLEAR THE CHECKSUM 

513g Gor030 ioesay /° fees Lat fe 1? Bone (HEADER)? 

gigi Borbae | bola? BNE L:Lbe NO. WAIT FOR THE ONE. 
gies 007034 004737 167114 ISR PC,L. PTR! 160000 :YES. SKIP OVER THE NEXT CHARACTER NOW. 
125 OO7040 004737 167126 ISR PC,L.GWRD! 160000 ASSEMBLE A WORD NOW. 
He Ee ee Stee O48 Ee GEM or 

156 Peoses igeces seed CMP #2 U BC SANY DATA AT ALL? 

gigs Boones Boese erize Fee be cupos re0000 nO. MUST ERO SEMOLE @ DATA WORD NOW. 
eo e e ~ 
a 607064 010001 MOV L-BYT,L.AOR SAND THIS MUST BE THE FIRST ADDRESS. 
i133 
ae 007066 004737 167114 L.LD3: ISR PCL. PTR! 160000 sGET 8 SBXTE OF DATA NOW. 

i 74 tesa TSTB = L.CKSM EB, ON R IS MINUS. CHECK CHECKSUM. 
sti Booaoe eit BEG Ci Lbe mt o5S0° GET NEXT COMMAND. 
2139 
e140 907109 004337 1ebE5E L. BAD: JSR SCAN, QUTLIT! 160000 :B00 LOAD INFORM HOST 
eise 7106 0006 af PRESTRt een RE Teee ee DISPLAY. 
2144 

2145 00711 002 L.LDO4: MOVB  L.BYT,(L.ADR)+ NSERT BYTE INTO MEMORY. 

eM Seat ts | ARpSEE BF C"Epa SAND GET THE NEXT BYTE. 

sii 

1 114 1eb6e4 L.PTR: JSR PC, GETS! 160000 SEMBLE AN g. BIT CHARACTER NOW. 
sie; Be5iks Bp4re2 BPR PC, GE TBE BORO supoate #He SHESeSUM 

2152 607122 305368 DEC C.BC :DECRENENT THE SHBRACTER COUNTER. 

e153 007124 , RTS pe NO RETURN TO THE CALLER NOW. 

s 

Sie 

eit? 907126 904737 167114 L.GWRO: Ise PCL -PTRE e000 s ASSEMBLE é HORO. FIRST GET A CHARACTER 
ete Be +86 paces 167114 ISR PCL. PTR! 160000 sD Soen de GET ANOTHER ONE. 





forurorororurorurururorororoufrororurofrorurorurururorurufrururururofrurururofruru S 
O+ bee re ae SS SS Sele aera arr mab aa a at a SS 
SRR EO BOO SEARO Oba soul Zone Cow UU eof 
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: THE LORDER 


OS-NOV-76 10:20 
007140 900300 SWAB 2SséLL.BYT sAND THEN REASSEMELE THE MESS. 
097142 952600 BIS (SP)+,L.BYT WITH THE FEARSOME POWER OF THE 11. 
007144 000207 RTS pc [AND RETURN TO THE CALLER. 

007146 004737 16712 L.JMP: JSR PC.L. GURO! 160000 ALL DONE WITH THE LOAD. ASSEMBLE 
zibe 920046 MOV L.BYT : THE staAt ic 
1 737 167114 JSR PCL. bai 10000 !AND DON’T FOR 0 CHECKSUM IT. 
007169 105705 7576 L.CkS 
007162 001346 BNE :A BAD CHECKSUM. ALL IS EVIL. 
007184 004327 186252 JSR SCAN, OUTLIT! 160000 -GO0D CHKSUM, INFORM HOST 
007170 175 i0? -BYTE ALTMOD,’°G sWITH ALTMOD G 
007172 716 00001 BIT #1, (SP) :D0 WE WANT TO START EXECUTION? 
007176 Beg ake BEG L. IMP :YES. AWAY WE GO. 
007200 900000 L.HALT: HALT :IF NOT, HALT. 
007202 000136 L.JMP1: IMP a(SP¢ sIF GO, THEN GO ALREADY. WHEEEE! 





.SBTTL THE SELF TEST 
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DOGTEC.F11 © OS-NOV-76 10:20 THE SEL T 
e138 ; THIS 1S gr4o OOuICK TEST weit 
sie “EONBYS TON oF MACHINE 
1 it root READING IN BIAS. 
2202 CHAR=100000 
2203 SHORTV=104000 
es potey=t tsp05 
Ob =1l2 
2207 GRAPHY=124000 
2208 RELATV=130000 
2208 
gsi? i = 
eil NT 1=2200 
22:5 INT2=2400 
221: INT3=2600 
2214 INT4=3000 
2215 NTS=3200 
2216 INTB=3400 
e217 INT7=3600 ; BRIGHTEST 
2218 LPOFF=100 
2220 LPON=140 
Hu be 
eee 
e224 LINEO=4 
2225 LINE1=5 
zee LINE@=6 
2227 LINE3=7 
2228 
. DIMP=] 
c é NOP=164 
I ' STATSA=170000 
cose OSTOP=173400 ;STOP INTERRUPT 
ae LEbARK=200 
ze2e TrALO=¥0 ITALICS OFF 
e238 SYNONS4 'SYNC ON 
2239 
2240 
} 174000 STATSB=174000 
2243 900100 INCR=100 INCR 
INTX=4 PY Bt 
Bolg? es ade INreaetFy Beton 
ZE46 001377 NAXY=1377 ‘bigest § yy CTOR 
47 De HINUSX=20000 THE MINUS BIT 
4B. alt NUSY=MINUSX 
2249 017600 MAXSX= 17600 ‘BIGGEST X IN SHORTVEC 
2250 . 000077 MAXSY= ; = mR = 
ect) 000100 NINEUY=100 ;MINUS BIT FOR Y IN SHORTVEC 
eese 
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2254 007204 012737 167214 172000 MOV #F ILEO! 160000, GTHOPC «START THE GT4C 
2255 Beset3 seat WAIT sAND WAIT 

sce 007214 114020 FILEO: POINT!SLKOFF : POINT--INVISIBLE 
2258 007216 gp0gg9 9 

22583 007220 00137 MAXY 


1 O07e282 112004 LONGV! INTO!LINEO ;DRAW TOP LINE 
INTX! MAXX 


eeb2 007224 041777 

2263 007226 

eee l ONGV! INT2!LINEL 

S507 Recess Augie INTX. . :DRAW LINE TO RIGHT 

2267 007234 021377 MINUSX! MAXY 

see 007236 LONGV! INT4!LINE2 

5555 bossa AeiSeS INTX! MINUSX! MAXX :DRAW BOTTOM LINE 

eer] 007242 0 

2273 007244 113407 LONG! INTS!LINE3 

eer Byoses Bay ao MAXY DRAW LINE TO LEFT 
007252 114000 POINT 

2278 907254 Ooo400 400 

2275 007256 000500 500 

2280 007260 ioee03 SHORTY! INT pee 

s5ei pores TBee bo erate INTS , 

2283 007266 077677 77677 5 4X-Y 

2284 007270 107200 SHORTV! INTS 

22es o0727e 077777 77777 5 <X-Y 

2286 107600 SHORTV! INT7 

sce 007276 057777 $7777 3-X+Y 

2289 007300 114000 POINT 

2290 0073202 001490 1400 

2291 007204 900500 500 

2292 007306 133030 RELATV! INT4!BLKON 

2293 007310 057677 57677 5 4X+Y 

2294 007312 077677 77677 2 4X-Y 

2295 007314 077777 27777 :=X-¥ 

cen 007316 057777 57777 1-X+Y 

2298 114000 POINT 

2299 ee 60400 ie 400 

2300 007324 100 . 190 

2201 007326 174120 STATSB! INCR+20 ;TRY GRAPH MODES 

5205 bossss AdiooD (O00 

e204 eed 200 

2206 007336 120000 

2207 0 010 


007340 001 1010 
2308 007342 001020 1020 
001 1030 


ne ee 


SCROLLING ROM BOOTSTRAP FOR THE GT4O 


DDGTEC.Pll 


007346 
0073S0 


007374 
007376 


OS-NOV-76 10:20 


001040 
001050 


* 
ete 


BSSS8iy 
SRzBRS 


Coo 
+ 
we 
o- 
od 


MACY 
THE 


1 27(1006) OS-NOV-7& 12:10 PAGE 48 


SELF TEST 


DIMP 
FILEO! 160000 
-SBTTL PAPER TAPE BOOT 


croak ie ROM BOOTSTRAP FOR THE GT4O MACY11 27(1006) OS-NOV-7& 12:10 PAGE 49 


| TEC.P11  OS-NOV-76 10:20 PAPER TAPE BOOT 
2328 ; 
| 2329 : PAPER TAPE BOOT 
5330 177550 HSR=177550 sHIGH SPEED READER ADDRESS 
2232 177560 LSR=177560 LOW SPEED READER ADDRESS 
| 2333 :  ZORIGING 1400 
$32 007400 012701 160000 bTB00T: MOV #160000,R1 :SE7 MEMORY CHECK LIMITS 
| 2336 007404 Ole702 o00004 MOV #4. R2 RAP ADDRESS Is Lo¢ 
| 2337 oo419 1 167500 MOV sot v4! 160000, na" “POINTER TO bevice RODRESSES 
| 338 14 91071 MOV PC are RESET TRAP ADDRESS IN 
/ 2339 porsig g1e706 po0024 MOV 34 SP iSTeck Ser up eT SPeciaL AGORESS 
| 2340 14304 DEV1: MOV -(R3) ,R4 
2341 007424 005714 TST aR4 cece RVATLAETL ny reo 
Ene 074 i BMI DEV1 
| us5 (01971 MOY PC Re LOC. 
2344 007432 012706 oo0024 MOV #824, SP oy ADORESS SEED Tae MASK LATER 
ens 007436 019441 MOV RY, ~(R1) 2 noe MEM N CHK :READER STATUS ADDRESS 
: 534g So oaae pipers aby ee NN BORE S tN BOITER 
5348 Bosdds BT LOOP: MOV Bal R ay se “ ree 
«Bet b8hden Soest ite ok 
sie, BOC 20 pace BPL “2 Nbr bg 
e253 007454 116412 oo0002 MOVE acR4) , Re : THEN ae IT 3 vAND STORE IT 
S22c nape Pons 000375 INS 28 8375 red ee OFFSET? 
 «~=eS Qosuse foesse re, US, ¢ 
ez 007472 Apes ti -(R2) i PLL, PONE. BRANCH 
52 ! DEVICE ADDRESSES FOLLOW - DO NOT CHANGE THE ORDER 
| B362 007474 177560 bev:  LSR ;LOW SPEED READER 
e263 007476 177550 HSR :HIGH SPEED READER 


e365 .SBTTL CASSETTE BOOT 


ee ey tee EE 


eee 


wae BOOTSTRAP Cheon GT4O 


Ss¢ 
DOGTEC .P OS-NOV-76 


007S66 


pore 
parer6 


CAS 


: CASSETTE BOOT 


- $=177500 
<ZORIGINe 1500 
tagooT: # sTACS,RO 
OCR (RO) 
RES: MOV PC.R1 
ADD eTRBLE-. ,Ri 
MOV #375, Re 


MOVE (R1)+,R3 
LooPi: MOVE (RL) +, (ROD 
LooP2: B8ITB 3, (RO) 


Q Lodpe2 
ange 
MO 20%) (Re) 
CMP 
BEQ Ra ,aa0 
STOP: HALT 
oR RES 
BONE: © TST (RO) 
BMI TOF 
CLR C 
TABLE: .WORD 17640 
.WORD 2415 
.WORD 112024 
.WORD 0,0 
WO TRBOOT! 160000 
“WO 34 


-S8STTL MR11-DB SOOT 





mec ied g7 i106) OS-NOV-76 12:10 PAGE SO 
TE BOOT 


;TA-11 CONTROL AND STATUS REGISTER 


bates, FROM TABLE TO TACS 


TES! + Reapy ROY AND =A “bie Ih TACS 
‘LOOP ’TIL SOMETHING C 


‘FERS DAT "SHO 
*FIRST wih Beep HOULD BE °240’ 
tIF << GO READ ANOTHER BYTE 
sHOLT ON "ERROR 
TART a CONTINUE 
;CHECK FOR ERROR 
zHALT ON_ERROR 
*IMP 380’ 
;-BYTE 240: READY+T-REG. 
: BYTE 37: ILBS+READY+GO 
: BYTE 15: SFB+G0 
: vt 254: 
SESE ARE. FILLER WORDS 


;POWER UP VECTOR AND PRIORITY 





—_ ee eee + ee ee 


SCROLLING ROM BOOTSTRAP FOR THE GT4O 
OS-NOV-76 10:20 


DOGTEC.P11 


Be 


pat ah at at at a a at at at at a a 


2 
3 
& 


e458 
e459 007714 
e460 00771 


MACY11 27(1006) 
MR11-D8 BOOT 


;MR11-DB BULK STORAGE PROGRAM LOADER LISTING 


RF 11: 


RK1i1: 


TCll: 


TM11: 


RP11: 


TAPES: 


AGAIN: 


RFVEC: 


. SORIGIN+1600 


MOV PC,R2 
BR OTHER 
fe 


MOV PC.R2 
BR OTHER 
177406 


NOV PC, R2 
TAPES 


RF11!160000 
340 


12:10 PAGE Sl 


;KEEP TRACK OF ORIGIN 
;FIXED HEAD DISK (256 KW) 


;MOVING HEAD DISK (CARTRIDGE) 


ty sae OF WORD COUNT 
OMMAND 

SPIRST “— 

ERROR MASK 


;ADDRESS OF BYTE COUNT 
AS SiMANe 


;MOVING HEAD DISK (PACK) 


;GET THE ADDRESS OF THE BRANCH 

?RO TO POINT AT LAST COMMAND 

GET THE WORD COUNT ADDRESS 
FOR ADV RD 

:MOVE RO TO FIRST C 

:COMMAND WORD TO C 

*LOOK FOR DONE INDICATORS 

:NO ser TRY AGAIN 

:DO RST COMMAND, CHECK FOR ERROR 

;LOOK FOR SET ERROR "BITS 

=NO ERRORS - TRY THE 

!RERUN FOR ERR 


;RF11 POWER UP VECTOR 














paleo TSTRAP FOR. THE GT4O 3s MACY! 27 (1906) OS-NOV-76 12:10 PAGE S2 
DOGTEC.P11 =NOV-76 1 MRI1-D8 BOO 
| eNee 007720 010702 RCll: MOV PC,R2 sFIXED HEAD DISK (&4KW) 
Sica Seosss | SRA PS OTHER |ADRS OF WORD COUNT <COMMAND+ 
| ee +O RAND WORD fe Is THe RESET. 
He rie Weer OnER: TT he. :B0 TO POINT AT WORD COUNT ADRS 
pies 8 abeeet ny me RI WOR Wt 0 T aDORE Pcs . RI 
+ 
Su) Baooa? BisOOt i >z000 ¥ #-1000, (1) iD HRD 
2472 007742 011041 MOV (0). -(1) COMMAND T commen REGISTER 
| e473 007744 1 100200 BIT #100200, (1) : CHECK POR. ERROR OR DONE 
| et 007750 001 : BEO 4 re iit NEITHER, afer LOOKING 
Be 55 fe 536 eae ere pe 
| 2478 poo000 9 sFILLER 
2479 ae 167610 RKVEC: RK11!160000 sRK POWER UP VECTOR 
| Sus] ey 167720 RCVEC: RC11!160000 gO POWER UP VECTOR 
| Bugs Boosee 45755 ot. om r 
| 2483 007770 167654 RPVEC: RP11!160000 “;RP POWER UP VECTOR 
Ae He ie 
i762 Tcvec: TCi1!160000 sTC11 POWER UP VECTOR 
| eve 600340 340 
| 


2488 -SBTTL ROM VERSION 1 VALUES 


SCROLLING ROM BOOTSTRAP FOR THE GT4O MACY11 27(1006) OS-NOV-76 12:10 PAGE S3 


DDGTEC.P1l OS-NOV-76 10:20 ROM VERSION | VALUES 
ere .DSABL AMA 
an ;DATA PATTERN STORED IN THE GT4O BOOTSTRAP VERSION 1 
clay ; eeeeeeeeeeee THIS IS A IMAGE LISTING OF THE GT4O <VT4O> BOOTSTRAP s#eesese 
95 : THE DATA IS A MIRROR IMAGE OF THAT IN THE BOOTSTRAP ROMS 
ci ; ONLY THE ADDRESS FIELD IS CHANGED 
2498 ;BOOTVT.SOS 5/2/72 «SPECIAL» 
550 
pa ; VT-40 BOOTSTRAP LOADER, VERSION S09, RELEASE RO1, S/2/72 
2503 ; COPYRIGHT 1376 DIGITAL EQUIPMENT CORPORATION. 
2504 ; 146 MAIN E 
250s : MAYNARD, MASSACHUSSETTS 
2505 : 01754 
2508 
230 ; WRITTEN BY JACK BURNESS, SENIOR SYSTEMS ARCHITECT! 
2511 
a 
Sau ; THIS ROUTINE IS INTENDED TO BE LOADED IN THE ROM PORTION OF THE VT-4C. 
eSi6 
234 ; REGISTER DEFINITIONS: 
516 oocooo RO=%0 
000001 R1=%1 
2521 000002 Re=%2 
eS2e2 000003 R3=%3 
e523 009004 R4=%4 
25e4 0005 RS=%5 
2525 0006 R6=%6 
es26 000067 R7=%7 
5259 000006 SP=R6 
ebe3 000007 PC=R7 
2531 000000 RET1=RO ;RETURN OF VALUE REGISTER 
2eS32 000001 INP1=R1 SRGUMENT FOR CaLLED FUNCTION 
2533 00000e INP2=Re AR 
2534 000003 WORK 1=R3 {FIRST WORK REGIST ER. 
2535 000004 WORK2=R4 : SECOND WORKING REGISTER. 
coms 000005 SCRi=RS ; SCRATCH REGISTER. 
38 000003 LCKSM=WORK1 ; OVERLAPPING DEFINITIONS FOR LOADER PORTION. 
2539 000000 Ley Tee Tt 
40 000005 LBC=SC AH} 
41 000001 LADR=INP1 
este 
es43 


SCROLLING SO” BOOTS TRRP FOR "HE GT4O 
DOG TEC P12 Of-NOV-7E 10:20 
45 - 
46 036900 
ess’ 166000 
esse 
= |= BR 
2ess1 
O22 
eos UeS60 
gear beSéi4 
SSé 025610 
ess: 
2560 REEEIE 
2561 
este 
4 O4S772 
015770 
25&7 
ests , 1680000 
2cés 
2570 
S71 ooon24 
2s73 
2s74 
2s7s 
2s7é 
2577 
2278 
2573 
2580 
ese! 
esee 
ese: 016000 
eses 
2ses 
ese 
2587 
2cee 
eces 
I 
S 016000 Q1e70S o00026 
©s3 01 ft 
22; EiEEGe Biesae 
cs 
Sos 016010 o00005s 
01 12767 7 7 
Sece /ERBR B1E7e> BpRSRT BOTEae 
e600 O160e6 012767 000201 007560 


ee eee ee eee 


MACY 1 


ROM 


STARTA: wy 


CORENOD=36000 
ROMORG= 16000 


STARTX=0 
STARTY=1360 


PibyS=se610 
K 
p 
p 


JMPOIS=160000 


PWRFAL=24 


. 216000 
. =ROMORG 


Bre! ~(SCRI) 


mca 


8201,P100S 


ee ee eee 


ym tee ( we laine “78 


12:1 


eet, SCR1 


Pace S¥ 


;FIRST gly OF NON-CORE. 
SWHERE THE ROM PROGRAM SHOULD GO. 


ir TQ START DISPLAYING T ‘ Items TONS. 


TO START BISPLAYING T 
40 _PROGRAN COUNTER. 
sTTY ne 


ipo} ia 


guy 


;PDP-10 burt’ BUFFERS 


sCHARACTER TO BE SENT TO THE PDP-10 
HARACTER FROM 10 PLUS ONE SAVE CHARACTER 


; INPUT C ER 
;FIRST COCATION OF STACK. 


;THE VT-40 DISPLAY JUMP INSTRUCTION. 


;POWER FAIL RESTART LOCATION. 


;SET THE ORIGIN NOW!!!! 


;PICK UP 1 fen te TO 4 F. STATUS. 
CLEAR I 10 5 URE. 
;SE fie" te Res LOCATION. 


;RESET THE BUS. 


THE Sig 


s INITIALIZE POP-1C SutPut T. 








es ee 


ee 
WD IOP Ul £ tune 


n 
rf 
we 

g 


g 
a 


é 


tt ete 


EA er 


oe Beau RE Se 


we 


OOOOoHOI0OON ONfF00O0 OOOO0OV0000 
et eed ed ed Se ed ed ed et ed et et 


+0 +0--—-- 0 +9 + 6-< +9 « 
O-* O-* 0+ B+ &-* Ob + pe ey ee ed 


SRINSE cme BS 


Or mrmarmar crc" 
i 





OTSTRAP FOR THE GT4O 


OS-NOV-76 10:20 


rani 
Sete 

mart for 

“31D ee 


oO 
o- 
fo 
- 
ye ee OD 


MACY) 
ROM 


RSTRT: 


MAJOR: 


DOCHAR ; 





RSION 





27( 1006) 
1 VALUES 





“NOV-76 12:10 PAGE SS 


sSTKSRT,SP T 
Mea stkak aoUReSs “Porn 
sINEOIS INP2 cle INSTRUCTION IN @ REGISTER. 
are 1509 (LADR mie i 6 at] og OS tN TER INT 

~ } 
purrs ogee :SET UP ine Rooms ceehe Sterner Fis. 

;PREPERE | 0 INSERT @ zine CHARACTE 
BE “bo cwaR : INSERT 
vT40P¢ : CLEAR re DISPLAY PROGRAM COUNTER AND START. 

PC, GTCHR :GT @ CHARACTER NOW. 
aMAJOR+ 150000, - (SP) ; INSERT IN DISPLAY BUFFER NOW. 

Rl NT IT 
(geet Ss, (S0R1)¢ i By pate “tree? Eis sPLAr tite 

~ e 
INP2, (SCRL)+ ca IN TEMES EreORARY ae ca ie. WE REPLACE CURREN 
( ) ISPLAY JUMP BY THE CHARACT 
REST tL aR) FER ae B WASTE 2 CYCLES. 
INP2. (LADR) -T0 AVOID TIM NG PROBLEMS WITH THE VT4O. 
Te AND FINALLY 
PC GTSIX gr 1x 
Pes? Stk) :SA tue cn CRARSCTER NOW. 
GTPS4 s Save S THE 8’ER 
INP :RESE THE NAG MAGIC IC REGISTER NOW. 
es Be : INCREMEN 
GTSTB+1S0000( INP2) ,PC NPonTEY PC NOW. 
PC GTSIX :GT A CHARACTER NOW. 
Ret WoRK2 :SAVE FOR A SECOND. 








2 
aA 
Be 


a 


x 
~- 
~ 
o 


Oe-e-o- 
nee 
~ 


AINSe Te 


OOrrmrowr 


chorea | 


RESSRE RARE RPPRRESE RGR 


28262 


1) = b= 0 0 0 po 
- 


mor 


ir 


aISASUNSORE HRP ORE RRR GRRE RRR IS t 
OOOOV0ONONND BOOOOOOWOOOOO0NH OOOO0OM on 


O22 eh bh bef he hh hh hh hh eh he Bo Fhe Be He He 


Sis 


DOS 


FOR THE GT4O MACY1] 27(1006) OS-NOV-76 12:10 PAGE Sé 
10:20 ROM VERSION 1 VALUES 


Gat Ti ;SHIFT TO LEFT OF BYTE 
ASLE Tl 
OLB ot ;PACK THEM IN. 
aa aE 3A GOOD 8 BIT THING. 
MOV (SP)+,RETI ;POP AND RETURN NOW. 
RTS PC 
GT82: ASL perl ;WORST CASE. SHIFT 4 
ASL RET 
ROL WORK2 
ASLB RET 
ROLB WORK2 
pale RET 
ROL WORKe 
ASLB RET 


RTS pc 
6783: ROL RET! 
ROL RET] 
ROR WORK2 
RORS  =—~RET1 
ROR WORK2 
RORS RET :FINAL CHARACTER ASSEMBLED. 
TST (SP }+ :FUDGE STACK. 
RTS Pe SAND RETURN NOW. 
GT8TB os 2 sPUSH ZERO CONDITION BACK INTO NEVER-NEVER LAND. 
.WORD  GT81-GTSP 
“WORD  GT82-GT 
"WORD  GT83-GTEP 
"WORD  GT84-GTEP 
po0020 GTSIX: JSR PC. GTCHR 
000040 CME RET1, 840 
BLT LBAD 
000137 CMP REIL, #137 
BGT L 
RTS PC 
GTCHP: TST (SP)+ sUPDATE THE STACK. 
015772 GTCHR: MOV #P 1010-30000, RET -SET UP POINTER TO THE INPUT CHARACTER. 
000064 GTCHL: JSR PC, CHECK 
S57 aRET 1 ;ANY CHARACTERS THERE? 
BEQ GTCHL : 
MOY JRETI, -(SP) PUSH THE CHAR ON THE STACK. 


CLR (RET15¢ :CLEAR THE CHAR GOT FLAG NOW. 





OO 


SCROLLING ROM BOOTSTRAP 
DOGTEC.P12 


13 
714 
5 


016510 
O1GS1E 


OS-NOV-76 


1 
116767 
052767 
012767 
000207 


FOR THE GT4O 


10:20 
177600 


000: 75 


007172 


011110 


GTNF: 


CHECK: 


CHECKI: 


CHECK3: 


CHECK4: 


Yll 
VER 





OS-NOV-76 12:10 PAGE $7 


VALUES 


8-200, (SP) 
G 


LOAD ’ 


KBOIB, -(SP) 
SL UREOIS 


PC, CHECK 
Pihdc 
CK 


CHE CKe 
(SP)+,P1008 


;CLEAR AWAY PARITY NOW. 
:IF ZERO, GT ANOTHER 
;ALSO {G0 RUBOUTS. 
:WAS IT A "175" 


s NOPE. SET IN CASE OF ABORT 
: E tr ante poy 
;YEP. RESTART 

sIS IT ANL 

:YEP. LOAD. 


;NOW OO THE FDUGING. 


;IF ALTMODE, LOOP 


eee 


;D0 WE WANT TO OUTPUT? 


5 


WE 00. IS THE 10 READY? 


;NOT QUITE. 
;I1T°’S READY. SEND THE CHARACTER. 
SAND THE SAVED CHARACTER. 


sHEY, IS THE KEYBOARD READY? 
sNORE. NOL 


NEP. SHV. THE “CHARACTER NOW. 
E THE COMMUNICATIONS DEVICE. 


;IS THE OUTPUT READY? 


TF NOT, WAIT TILL DONE. 
THEN SEND OUT THE CHARACTER. 

118 THE 10 TALKING TO ME. 

GT THE CHARACTER NOW. 

:MAKE SURE IT’S NONE ZERO 

: REINITIALIZE SONMURT SATION LINE. 


;ANC RETURN. 





eae FOS - 


| SCROLLING ROM BOOTSTRAP FORTHE GT4O MACYI1 27(1006) OS-NOV-76 12:10 PAGE Se 
D0 Pll ALUES 


GTEC. OS-NOv-76 10:20 ROM VERSION | V 
2769 
2770 
2771 
5526 
776 
ae 
a : THE” LOADER 
2781 gi6 LOAD: CLR” NPe RESET 19 EIB FIST ie 3 I otBRECT Rg 
7 1 le?le 172000 MOV itt 000, (INP2) 48. 
ees 016526 012708 015770 MOV"  gSTKSRT.SP : RESET erAcke eR STO 
1 : F bok -CLEAR THE CHECKSUM 
5SEF Si PEs peSoes 000070 Ae $e Pe CPR :GT A avtf Row 
2787 O16540 105300 DECE 1S bia ONE? 
3788 O16 42 9913 BNE Lie NOPE. WAIT AWHILE 
e7es 16544 6? O00060 ISR C.LPTR :YEP. GT NEXT CHARACTER. 
16 ? 90007 J 
soai st 3 pO aaBe . 280 te gt F THE C AO INTER NOW. 
2793 Ole 162705 o00004 Sug s CHOP ,OFF EXTRA STUFF. 
2794 016562 O22705 900002 tMP 
5538 Bt 259 stead aay ae ag, z NOP ct as BDORESS es SAKE. 
2799 O16576 904767 000026 LLD3: JSR PC LPTR :GT A BYTE rons ca uae eeaeinael 
5e5) digess Sera Fete teen ve Com crc Eck Sun? 
ge0e O1g60¢ 001751 BEG LLD2 
2804 O16610 012700 LBAD: MOV (PC)+. RET! paths OUT SOME CHARACTERS NOW. 
lee12 l ENTE 175,18 se TRL BOO, 
aid 16614 ooute5 00011 3SR Be abhBrt 
gene 016620 O001&7 177210 IMP RSTRT 
10 Ol : MOV YT, (LADR)+ ;PLACE THE BYTE IN CORE. 
seit SIEGE AAeREL up: gee He HR RECSE. 
2813 O16630 004767 177276 LPTR: JSR :GT 8 BITS NOW. 
2814 O16624 60002 ADD Pay BSH ‘UPDATE CHECKSUM 
2215 O16636 042700 177400 BIC #177400, LBYT :CLEAN UP THE BYTE NOW. 
e8ig Olee4e 305 DEC LBC : UPDATE THE COUNTER. 
e217 O16644 900207 RTS PC RETURN 
2619 OlE4G 004767 177756 LGWRD: JSR PC,LPTR :GT A CHARACTER. 
geet O1ess2e O01 MOV LBYT. -(SP) VE FOR A SECOND. 
1 Ol66s4 “h 5 177750 JSR PC, LPTR :GT anoTieR CHARACTER. 
e822 O1G6E0 swab =OSsLBY W ASSEMBLE THE WORD. 
e822 Olbbte BIS (SP)+,LBYT :AND RETURN WITH A 16 BITER. 
2824 O16664 000207 -ORTS PC 

















oe a ROM BOOTSTRAP FOR THE GT4O MACYL1 27(1006) OS-NOV-7& 12:10 PAGE S9 


| 
i 
| OOGTEC.P11  OS-NOV-76 10:20 ROM VERSION 1 VALUES 
| 


ss QLEGEE O047E7 177754 LIMP: JSR PC,LGWRD_ ;GT A WORD 

| iee7e fic a MOV =-_ LBYT. -( SP) ‘SAVE ON THE STACK. 

| 2828 bibFo9 erty 177730 13h tier ;GT A Re Fi 

BE HES By ox Be, 1 (a Noel 
a esi eps POY iat rR ieee 1 324 Ok. 
. es e714 sods 175 “BYTE 10 wah ARC" 


tr PC, LENE IT 
HAL 





| * p83? 018722 900000 T 
| p838 O16724 O00776 BS 2 
ae OLE72E 000136 LIMP1: IMP a(SP)+ sAND AWAY WE GO. 
| i 
esse 
BBY 
| 2Bs4 
| Bees 
DSH 
2647 
2S 
2e45 
| gesd 
2851 
2952 
2e53 
2854 
css 
zezE 
see, O16730 OO47E7 177446 SENDIT: JSR PC, CHECK -POLL THE OUTPUT DEVICE NOW. 
2853 016734 po5767 027036 TST PiH0C :OQUTPUT CLEAR? 
2860 O16740 001 BNE SENDIT :NOPE. LOOP AWHILE LONGER. 
2861 S16742 010067 ODGESO MOV RET1,P1008 :SEND OUT THE CHARACTER. 
——«BRES «DLE74HE 105000 CLRBsRETI :CLEAR THE SYTE. 
2863 916750 000300 SWAB ~SséRETI : M NOW. 
2864 O1E752 001366 BNE SENDIT IF NOT FQUaL. REPEAT. 
2ees 016754 000207 RTS PC 
2265 
287 
Zee 
2EE9 
2870 
2271 
2872 
2873 
2674 
2275 
2876 
2877 
2878 


e879 
ce 


-~ 


| $C 


Boctet 


Pit BeenBv-re 10:20" 


017000 


009000 
000001 













ee Le) OS-NOV-76 12:10 PAGE 60 
ROM ION 1 VALUES 


: THIS i THE INITIALIZING VT4O PROGRAM WHICH 

: JUMP TO THE PROGRAM AFTER THE POWER FAIL Bch Tis 

: WHICH WILL JUMP TO ZERO WHICH WILL JUMP BACK TO HERE 

DISPRG: .WORD 170256 ;LOAD STATUS REGISTER FOR NORMAL OPERATION. 
- WORD jas} ;SET aM MODE, “NORMAL”. 
- WORD ARTX 3X COORDINAT 
-WORD STARTY ;Y_ COORDINAT 
. WORD SET CHARACTER MODE. 
WORD JMPOIS THEN JUMP TO THE finn ad LOCATION. 
ary PWRFAL +4 :T0 DISPLAY USERS CHARACTERS. 
wor 


;STARTING FROM HERE TO THE TOP OF MEMORY 
; A BACKGROUND WORSE CASE NOISE TASK WILL SE EXECUTED 


BUFFER: 0, : 
ANS ‘ 








SCROLLING ROM BOOTSTRAP FOR THE GT4O 
DOGTEC.P1l OS-NOV-76 10:20 
AGAIN OO771le e4s68 2475 
ALTMOD= 000175 ls64e 1982 
ee 
a 
‘% 
aa ec 
IMIT= 16578 1668 
KOFF= 1878 # lel 
ON = 1878 1200 
BSTART= 001000 1sS68 i 
re on & 
i res 
BUFFS O0S6l2 Ses S86 
cTenk 100090 1878 1291 
CHECK Q16402 2708 27388 
end BPE 2733 2741 
CHE 16450 27508 2752 
CHECKS O1EB46E 274s 2756 
CHECKY 01651 2757 e7bes 
v = eshte 6 
C = 165Se 1718 
CORTST 002004 628s 
CR 006206 18les 
CRLF = Q0S015 16638 1752 
DEV 007474 2337 2362s 
v 00742 freee ie 
= 
she iy seee* BBS ie 
DISTOP= 173000 16678 1991 
DJIMP = 160000 1878 1515 
DLADD STE: moa eau 
| a FRee Bots ee uo? eats 
| DLIDBR 001160 4988 723 
DLIN 002326 533 71&8 
ie 00241 728 7208 
' 001 Slis o33* 
pat 001204 Sles So4# 
OC 001162 4998 530% 
DLOOBR OO11E4 4B4e 4eSe 
DLOUT  QO022e44 o9s 6368 
DLOUTA O0e2be 7038 
a eTe at 707 7108 
| DLOVT 1 Si3s cose 
DLOVT1 O0lel Si4s S3b# 
DLYCT 001010 4o-8 cSe 
DLILIB= 175612 164S@ 1646 
cies eee 
DL110S= the ae pd 
= 3 
| fal ctad 4 re 2611 cécOs 
CORE 486 blls 
ONE 4 2379 23908 
DSTOP = 173400 1878 1525 


MACY11 27(1006) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2141 


1922 


2113 
1526 


ie 


696 
5008 


2174 
177 es4 
126 Bae 
1245 22228 
1893 1923 
731% 14678 
760% 14878 
1326 1344 
2858 
1923 1924 
22298 2324 
533+ 710% 
1959 1962 
7*# 
1732 1734* 
1508 1509 





OS-NOV-76 
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1873 1920 1924 

eese 

1362 1380 1451 1464 1484 1595 1S20 1808s 
1940 

1510 1511 1Sle 1513 1514 





SCROLLING ROM BOOTSTRAP FOR THE GT4O 


DDGTEC.P1l OS-NOV-76 10:20 
poe = 177570 4498 
OR OO6036 172i8 
ERRVEC= 000004 448% 
FF 006256 1808 
FFLOOP O0626e2 1833 
a 007214 ceeh. 
FitEDe | Ghe7ea 59 
FILEOC 005752 580 
FILEOO 003012 529 
GETCHR OO&6SE4 1791 
Th Slé 19598 
GE 4 S4é 1960 
GETE 50 1983 
GETSIX OO6630 20038 
GETS OO&EE4 20418 
GETSTB 006700 2044 
GETS1  O0671e 2046 
GETB2 006740 2047 
GET83 006772 2048 
GETS4 O06706 e0ses 
GRAPHX= 120000 1878 
GRAPHY= 124000 1878 
Sabo” boibod sede 
eree> DOL0DS Weis 
GTBUSE O06424 18938 
GTCHL OlE31e2 27088 
GTCHP 016304 27058 
GTCHR O16306 2614 
GTOLYO plat C408 
GTDONE1 O01] 5038 
GTDONE OO1I6E S0e8 
GTLPEN O02220 575 
GTLPH 001172 cose 
GTLPH1 001174 cbs 
GTNP 016366 2718 
GTPC 001146 492 
GTPS4Y  O16144 2647 
GTSHIF 002236 577 
GTSIX Olb262 264s 
GTSOTM 1176 cogs 
GTSOT1 1200 5098 
GT 138 4938 
GTSTOP 1 573 
GT 1 202 £77 
vc 001002 4608 
GTXPOS 001152 4o4% 
a rr 
= 
GT4OSR= 155600 16538 
 GTg 016132 ce4ss 
GT = 0] 26528 
GTETB = 01 2650 
GTE1 161 cess 
GT&e 01 cbess 


8 





S41 
2636s 

818% 

6838 
1893 


2691 


MACY11 27(1006) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


S70# 


1S168 
1S2S58 


1970 


2306 

e317 
682s 
578 


2728 
578% 


b84* 


1927 


e692 








1981 


8748 


6884 


2254# 


2693 


0S-NOV-76 








1985 
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KOS 


SCROLLING ROM BOOTSTRAP FOR THE GT4O MACY11 27(1006) OS-NOV-7E 12:10 PAGE 64 


DOGTEC.P11  OS-NOV-76 10:20 CROSS REFERENCE TABLE -- USER SYMBOLS 
6TS2 16232 . 26798 
GTa4 16142 ee4es 2693 
HEADER 06474 1882 1922 1928 19348 
HSR os ezzi8 2363 
MAGE 1 4638 474# 480% 42s 797 
NCR = 0001 1878 58} 680 82 874 22438 2301 
T 14 5s4 738 
iN TGT 901216 473 ule 
NSERT 360 1816 1824 i862 18708 
INSRTL OOG4OE 1974 877 =: 18828 
TX O06422 1872 18878 
me BE eat 
INTX = 1878 i 4 957 860 9 1035 1201 1202 1203 1204 # 1205 
1207 «1208 ~=Ssi«iale1sti‘i‘zj+}UY©«=OCO«L2IS)~=Ssid216SC(<(‘<«é‘i?SsCdSiédLS:«Ss«édd22DSCsi‘éddCDS 
| 1228 43s: 1229 230 lesl lese 1037 1238 1039 «#491240 8©6le4r 8 61e42 861243 
184 1g51 1253 1255 1257 1259 ~# 41e6l 1253 1269 127 1273S s«1e75 
le? 1281 1 1401 1407 1413 1419 14 1431 143 14423 2244s 
2270 «3s Bey 
INTO = 1878 i442 22108 2261 
INT] = 002200 1878 1436 Pelle 2280 
NTE : pee 1878 1430 gel ® 2265 
NTs = ue 1878 1424 138 e282 
| Int4 = 003000 1878 850 1418 1448 # 22148 2269 2292 
INTS = 903200 1878 i4l2 22158 2284 
| INTe = 003400 1878 1406 22168 2273 
| INT? = po3e56 1878 1400 22178 2286 
| TTALO = i878 1290 1322 1358 3 22368 
IMenbD= Dobie ideas «teed Ssteede «= 184R) S81 2113s 
JMPDIS= 169000 2568s 2896 
| KBCHR  O02626 * 753% 754 764 7848 
| KBOIB = 027562 16508 19683 2S58e 2747 
_ KBDIS = 027560 16498 1650 1967 25548 2558  2599% 2745 2748 
| KEIN  O02440 597 744% 
_KPNT 002624 536s 275] 755% 756 758% 759 7838 
KRBBRL O0le26 ch4y 58 
KREVT 001222 ~ cole 49 97% 
ie eats . oese" oan 2804" 2830 
| LF BSE San i806 [3478 
| LFLOOP 906310 18528 1855 1957 
| LF 1853 =: 18598 
. LFSUB 1841 1850s 
| LGHRO DiseYe 2791 2796 28198 2826 
LINED = O04 1878 850 BS 1400 22248 2261 
| LINE = 000005 1878 853 22258 2265 
| CINE® = 000006 1878 856  2ecbe 2269 
| CINES = i87# 859 2278 2273 
LIMP 1BEEE 2795 = PBDEs 
—LCOMP1 616726 2832 40 BB4Oe 
CLb2 16532 27858 2788 2802 
{LDS }6=—s«O16576 27998 ©2811 
CCDS =: O1 6624 2800 «= BB 10s 
| LOAD »©=-:« O16 S20 e723 B71 t 
LOADER 007012 1987 21138 


SCROLLING ROM BOOTSTRAP FOR THE GT4O 
OS-NOV-76 10:20 


DDGTEC.P11 


Ss 

LONGY = 1] 

Se ee 
Bousen 


LOOPe2 
LPDARK= 
Leip ies Rion 
S WU 
LEN = 90014 
LPTR 016630 
LSR = 177560 
- 100 
L. 7126 
L.HAL 7200 
L.JIMP OO7146 
L.JMP1 007202 
L.LDe 007022 
L.LD3 
L.LD4 ll 
| L.PTR 114 
MAJOR 016072 
MAXSX = 017600 
MAXSY = 
MAXX = 001 
| MAXY = 001377 
| MEMDAT O02062 
MEMEND 002124 
MEMTST O02054 
MINSUY= 000190 
| MINUSX= 020000 
| 
| MINUSY= 020000 
| BED 
NOTHER O0604¢e 
IN= 000040 
| NXTCHR 006132 
| OCT 005677 
ORIGIN= 166000 
OT 007726 
OUTLIT OD&ES2 
| OVER pices 
PCOUNT 3010 
POINT = 114000 
| 
| 


PTBOOT 07400 
| PUNCHR 002434 


a) 
rT 


S47 


8S3 
1426 


MACY11 27(1006) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


553 


856 
1442 


0S-NOV-76 


S66 
ecb! 


2621 


e159 


2270 
1308 


1219 


1868 


1836 


770% 
2467 % 


1387 


Mur 
tf 


OS# 
735% 


1034 
ects 


2826 


2169 
1328 


1220 


1888 


1844 


1S507% 
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1248 
2269 


1343 


1230 


1884 


1847 


1263 


2273 


1381 


1231 


188 


1406 


1379 


1232 


1897 


1406 


22468 


1242 


1854 


124 
2302 


1412 


2259 


1243 


1880 


1416 


2267 


1244 


1249 
1e8e 


ING ROM BOOTSTRAP FOR THE GTHO 
OOGTEC.P11 OS-NOV-76 10:20 
| PWREAL= 000024 2s718 2592 
PWRFL 001674 W446 Ots« 8 
Pt Se 
= 
St E > Bae Steas | ae 
PIOTS = 02561 25568 2559 
P1008 = e 27428 
Pl = | 64 
P1D0S = 025614 25558 
RCVEC 007764 24818 
RC11 007720 8 2481 
HR 002436 720% 724% 
TV= 130000 1878 1200 
RE 23738 ©2388 
RESTRT 17468 1992 
RFVEC 007714 24598 
RFI 24108 2459 
| RKVEC 60 24738 
RK1I 10 2415e 2479 
001014 ue?" = 799 
166000 2s47e 
ROTVAL O020S2 p43 g60 
ste Sy Sisse | 2ug3 
tat 16034 e048 e7el 
SENDIT 016730 2807 2836 
006126 1761 17708 
| SETLP1 O06074 17528 ©1754 
Thee 906110 17608 1767 
| SETLPS 006116 17648 1766 
[3 nt aS 
| eyeTve poise tees Ede 
| START 06000 480 17108 
| StaRTA O1¢000 483s BS S28 
| STARTB 001022 uss 
| STARTX= OO0000 2549" 2893 
Heute 6 at 
| StatSe= 15a559 1878 © 581 
| ETKSRT= 015770 25658 2604 
| STOP 007550 23878 ©2391 
| SWwR = 001230 W750 s«7? 
| SWREG 000170 yS>e 2 «SE9 
SYNOFF= 000010 1878 
| SYNON = 000004 187@ 22388 
| TaB =: OOb222 1805 18238 
| TABLE 007562 2374 0 83948 
| TABOOT 23718 2401 
TACs. = 177500 23698 2371 
TAPES 007662 e422 22431 
TCVEC 007774 24e58 
TELM e42i8 2485 
' Te  o01214 Si7e 752 
™%S OOlel2 Sige S3e% 


MACY11_27(1006) 

CROS 

2609 2897 
605 

2707 2758% 
es3e8* 2756 
753% ft 
738 742 
2600* 2740 
725 7388 
lele 22088 
726% 727 
2808 

2858s 2860 
1236 22038 
625% 628 
£06 674 
1305 1322 
680 682 
2783 
Sets Sé4# 
1827 

24448 
744 
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2759% 
2760% 


2743% 


2292 


729% 


2864 


2280 


692 


1340 
846 


Ses 


e751 


730 


e282 


699 


‘ea 


S69# 


REFERENCE TABLE -- USER SYMBOLS 


28s3 
736% 
2284 e28é 
719 747 
1376 1394 
ec4ie 2301 


836 


22318 


ROLLING ROM BOOTSTRAP 4 GT4O 





Secret. Pll OS-NOV-76 
738 8 
ieee 1918 
TML1 4308 
1 et 8 i} 
Boe sae 1b 188 
/ vT 1807 18318 
pb ae ess3se e2tle# 
8 479 
a 
ree & 
TS = 631 one 
Seas 3 
ey 


a i i 
. 


MACY13 27(1006) 0S-NOV-76 
CROSS REFERENCE TABLE -- 


1746 

BS 
ye2e 809 
Ag At 
7] He 
i; 8 
CGS 
rs 
S22beB 


ee 


at 


Grin Ged GOES 
GS OG 
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USER SYMBOLS 


S-NO\ -7% 


REFERENCE TABLE -- MAC 


&7( 1006) 


3 


CROS 


TSTRAP FOR THE GT4C 8 MACY 


NOV-76 10:20 


SSosee eta Be. 


i237 


lzes 


tu om 
%  ahBA, 
-* 


pate lh wd . 





patton ates 


mm ee eae ee = ee OO a we re 


33: 


OOOO O88 SOS 48 60 64S 488002802808 2000088 
ete te te te te @e te ted -- ‘ 





- —_— SS 


+ —-+ — S + — ee 


MACY 
cROS 


1_27( 1006) 


TSTRAP FOR THE GT4O 
as REFERENCE T 


SC ING ROM 
Sesser et, S-NOV-7E 10: 20 


E -- MAC 





000 


ERRORS De Tec TeD: Q 
DEFAULT GLOSALS GENERATED: 0 


MraP 3 Be pgs. SEQ/SOL/CRF “NL: TOC=DDGTEC. SML,DOGTEC.F11 
iat ONES. 


CORE USED: 33 te ences) 


a ee ee ee 


“NOV-76 12:10 
RO NAME 


PAGE 70 
s 


we ew ewer weeny 


ous techs 


Ree A kaon 


eaeseessaessss359sss0005cd00dde1: 





